Программа в pascal abc Вводится последовательность натуральных чисел. Признак конца ввода – число 0. Определить количество чисел кратных 2 и 3 и сумму всех введенных чисел.
Программа в pascal abc Вводится последовательность натуральных чисел. Признак конца ввода – число 0. Определить количество чисел кратных 2 и 3 и сумму всех введенных чисел.
Гость
Ответ(ы) на вопрос:
ГостьProgram pr;
uses crt;
Var k,a,sum:integer;
Begin
Writeln('Vvedite posledovatelnost');
k:=0;
readln(a);
sum:=a;
While a<>0 do
Begin
readln(a);
sum:=sum+a;
if (a mod 2=0) and (a mod 3=0) then k:=k+1;
end;
Writeln('k=',k);
Writeln('sum=',sum);
readln;
end.
Не нашли ответ?
Похожие вопросы