Question

Sos
3 задача в Pascal abc

Answer 1

Это последнее задание, сейчас подумаю над первыми двумя, если что в комментарий скину решение:
Program nechet;
var a,b,i,p:integer;
begin
i:=0;
p:=0;
for b:=1 to 30 do
begin
readln(a);
if (a mod 3=0) then
inc(i);
if (a mod 7=0) then
begin
p:=p+a;
end;
end;
writeln('Количество чисел кратных 3: ', i);
writeln('Сумма чисел кратных 7: ', p); 
readln;
end.