1) Напишите программку, которая в последовательности натуральных чисел определяет сумму
1) Напишите программку, которая в последовательности естественных чисел определяет сумму четырехзначных чисел , кратных 6. Программка получает на вод естественные числа, кол-во введенных чисел неведомо, последовательность чисел кончается числом 0(0- признак окончания ввода, не заходит в последовательность).
Программка обязана вывести одно число: сумма четырехзначных чисел , кратных 6.
2) Напишите программу , которая в последовательности естественных чисел определяет наибольшее число, кратно 3 и заканчивающиеся на 3. программа получает на вход кол-во чисел в последовательности, а заем сами числа. В последовательности всегда имеется число, кратное 3 и заканчивающиеся на 3. Кол-во чисел не превосходит 1000. Введенные числа не превышают 30 000. Программка обязана вывести одно число- максимальное число, кратное 3 и заканчивающиеся на 3.
Program n1;
var a: integer;
sum: real;
begin
readln(a);
sum:=0;
while alt;gt;0 do
begin
if (agt;999) and (alt;10000) and (a mod 6=0) then sum:=sum+a;
readln(a);
end;
writeln(sum);
end.
2)
Program n2;
var a,max,i,n: integer;
begin
readln(n);
max:=-30000;
for i:=1 to n do
begin
readln(a);
if (agt;max) and(a mod 3=0) and (a mod 10=3) then max:=a;
end;
writeln(max);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.