Регистрация
riko20520
01.02.2020 04:36
Информатика
Есть ответ 👍

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.
нарисовать блок схему

278
478
Посмотреть ответы 1

Ответы на вопрос:

arsenmalhasan20
arsenmalhasan20
4,7(20 оценок)

Var

summ, n, i, k: integer;

begin

summ := 0;

writeln('Сколько в классе учеников?');

readln(n);

for i:=0 to n-1 do

begin

writeln('Введите вес ученика номер ',i+1);

readln(k);

summ:=summ+k;

end;

writeln('Вес всего класса = ',summ);

end.

Популярно: Информатика