Var a,b,s: integer;
begin
write('Введите количество чисел в последовательности: ');
readln(a);
for b := 1 to a do
begin
write('Введите число: ');
readln(a);
if a mod 3 = 0 then
s:=s+a;
end;
writeln('Сумма чисел, кратных 3, равна: ',s)
end.
нарисовать блок схему

max500va    2   28.04.2020 18:17    1