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.
нарисовать блок схему
Ответа на этот вопрос пока нет. Попробуйте найти его через форму поиска.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад