Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Sos
3 задача в Pascal abc

Ответ оставил Гость

Это последнее задание, сейчас подумаю над первыми двумя, если что в комментарий скину решение:
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.