с клавиатуры вводятся числа пока их сумма меньше 300. Найти произведение отрицательных чисел делящихся на
5-9 класс
|
3
var x,s,p:integer;
begin
p:=1;
while s<300 do begin
readln(x);
if x mod 3=0 then p:=p*x;
s:=s+x;
end;
if p<>1 then writeln(p) else writeln('0');
end.
Другие вопросы из категории
Решить уравнения
1.608(в восьмеричной)+x=200(пятеричной) Ответ дать в шестеричной
2. 100(в семеричной)+x=210(в пятеричной) Ответ дать в шестеричной
Составить 5 уравнений и решить их.
33, 324
и из двоичной в восьмиричную и в шеснадцатиричную число 111101, 111
если можно, развёрнктое решение, заранее спасибо)
Читайте также
с клавиатуры вводится число х. если остаток от деления х на 6 равен 2, то значение f(x)=4*x^2 если остаток от деления х на 6 равен 3, то значение f(x) = корень из х , если остаток от деления на 6 =0 то f(x) = x.
Написать программу в паскале используя операторы if и else . Нарисовать блок схему
больше 10.
2. Напечатать все делители заданного числа.
Это циклы,ршите в паскале!
ввели ц числа определите большее или меньшее 25-ти их сумма
2, С клавиатуры вводятся 15 натуральных чисел. Подсчитать количество элементов, кратных 3 и 5.
3, С клавиатуры вводятся 10 натуральных чисел. Вычислить произведение чисел, больших 10, но меньших 20.