Составить на алгометрическом языке программу для сложения всех чётных чисел от 0 до 200. ( т.е. идёт алгорим должен выглядеть так:
алг
нач .......( помогите дальше дописать)
Нет комментариев
Ответы

Program task;const n=200;var a:array[0..n] of integer; i,s: integer; beginfor i:=0 to n do
begin if(a[i] mod 2=0) then
s:=s+1;
write('кол-во числе равно', s); end;
end.
начало - ввод данных ( в данном коде нету этого, так как все описано сразу же) - проверка условия, если истенно то увеличиваем счетчик, если нет, то ничего не делаем - вывод счетчика.
Нет комментариев
Похожие вопросы
Информатика
Построить таблицу истинности...
Информатика
Помогите номер 5,7,8,930 балов...