Мелетий 27 ноября 2019 в 11:11
Помогите решить задачу по Pascal ABC, цикл while. C клавиатуры вводится число, ввод заканчивается числом 500. Сколько чисел делится на 3?
Помогите решить задачу по Pascal ABC, цикл while. C клавиатуры вводится число, ввод заканчивается числом 500. Сколько чисел делится на 3?
Var col,ch:integer;
begin
writeln(введите числа, закончив ввод числом 500 );
while (chlt;gt;500) do begin
readln(ch);
if ch mod 3 =0 then col:=col+1;
end;
writeln(количество чисел кратных трём = ,col);
end.
begin
writeln(введите числа, закончив ввод числом 500 );
while (chlt;gt;500) do begin
readln(ch);
if ch mod 3 =0 then col:=col+1;
end;
writeln(количество чисел кратных трём = ,col);
end.
Компьютеры и вычисления
296
0
Для комментирования необходимо зарегистрироваться на сайте