Составьте программу , которая определяет, количество цифр 2 у числа, введенного с клавиатуры, через я не могу составить именно тело цикла. вот что есть program z_15; var num, f, f2 : longint; var kn2 : byte; begin f: =0; kn2: =0; writeln('enter number'); writeln('p.s. number > zero'); readln(num); while num> 0 do begin if f = 2 then kn2: =kn2 + 1; end; writeln('kn2 is =',kn2); end.

aleksandrzhark aleksandrzhark    1   07.07.2019 05:10    0

Ответы
kravchenko1712 kravchenko1712  02.10.2020 21:49
Program Z_15;
VAR Num, F, F2 : longint;
var kn2 :byte;

begin
F:=0;
kN2:=0;
writeln('Enter Number');
writeln('P.S. Number > Zero');
readln(NUM);
While Num>0 do
begin
F:=num mod 10;
num:=num div 10;
if F = 2 then
KN2:=KN2 + 1;
end;
Writeln('KN2 is =',KN2);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика