Question

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

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;
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.