Регистрация
helloiSashA
10.07.2020 21:17
Информатика
Есть ответ 👍

Pascal abc дано целое положительное число определить сколько в-нём двоек и нулей в заданном числе

289
393
Посмотреть ответы 2

Ответы на вопрос:

snejanaterg
snejanaterg
4,6(95 оценок)
Var a,k,n,m: integer; begin   writeln('введите число');   readln(a);   m: =a;   k: =0; n: =0;   while a< > 0 do begin       if a mod 10=2 then k: =k+1       else if a mod 10=0 then n: =n+1;   a: =a div 10;   end;   writeln('в числе ',m,' ',k,' двоек и ',n,' нулей');   readln end.
TMTEMI
TMTEMI
4,5(77 оценок)
Сполучением и передачей, хранением и обработкой информации.

Популярно: Информатика