1) Напишите программу, которая в последовательности натуральных чисел определяет сумму...

Question

1) Напишите программу, которая в последовательности натуральных чисел определяет сумму четырехзначных чисел , кратных 6. Программа получает на вод натуральные числа, кол-во введенных чисел неизвестно, последовательность чисел заканчивается числом 0(0- признак окончания ввода, не входит в последовательность).
Программа должна вывести одно число: сумма четырехзначных чисел , кратных 6.
2) Напишите программу , которая в последовательности натуральных чисел определяет максимальное число, кратно 3 и оканчивающиеся на 3. программа получает на вход кол-во чисел в последовательности, а заем сами числа. В последовательности всегда имеется число, кратное 3 и оканчивающиеся на 3. Кол-во чисел не превышает 1000. Введенные числа не превышают 30 000. Программа должна вывести одно число- максимальное число, кратное 3 и оканчивающиеся на 3.

Comments

да

Answer 1

1)
Program n1;
var a: integer;
sum: real;
begin
readln(a);
sum:=0;
while a<>0 do
begin
if (a>999) and (a<10000) and (a mod 6=0) then sum:=sum+a;<br>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 (a>max) and(a mod 3=0) and (a mod 10=3) then max:=a;
end;
writeln(max);
end.