Регистрация
annshirokikh
14.11.2021 13:32
Информатика
Есть ответ 👍

Решите вторую , написав программу на паскале

266
450
Посмотреть ответы 2

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

PolinaS82001
PolinaS82001
4,6(90 оценок)

program raf105;

var i: integer;

begin

for i: =1 to 10 do

writeln(i,' в кубе равно ',i**3);

end.

программа написана на языке pascalabc

Kik1924
Kik1924
4,8(15 оценок)

var

N, _counterZ, _counterU : integer;

begin

_counterU := 0;

_counterZ := 0;

readln(N);

while N > 0 do

   begin

   if N mod 10 = 1 then

       _counterU := _counterU + 1;

   if N mod 10 = 0 then

       _counterZ := _counterZ + 1;

   N := N div 10;

   end;

writeln('Количество единиц в числе: ', _counterU);

writeln('Количество нулей в числе: ', _counterZ);

end.

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