Паскаль, цикл while Вводятся числа, посчитать кол-во чисел, которые делятся на 2 и которые делятся на 3. Ввод закончить 0. Вывести на экран кол-во чисел , делящихся на 2 и кол-во чисел, делящихся на 3. помогите, пожалуйста
Паскаль, цикл while
Вводятся числа, посчитать кол-во чисел, которые делятся на 2 и которые делятся на 3. Ввод закончить 0. Вывести на экран кол-во чисел , делящихся на 2 и кол-во чисел, делящихся на 3.
помогите, пожалуйста
Гость
Ответ(ы) на вопрос:
Гостьn, i, k, d, t:integer;
begin
while n<>0 do
readln(n);
if (n mod 2)=0 then d:=d+1;
if (n mod 3)=0 then t:=t+1;
writeln(d,' ',t);
readln;
end.
Не нашли ответ?
Похожие вопросы