1. Информатика
  2. Составьте программу в

Составьте программу в pascal abc, которая посчитает количество двоек в числе​

Маша2005051 Маша2005051    2   07.10.2019 20:20    1

Ответы
OlaCoch OlaCoch  10.10.2020 02:23

var

   a, n : integer;

   

begin

   write('введите число: ');

   readln(a);

   while a > 0 do begin

       if a mod 10 = 2 then n += 1;

       a := a div 10;

   end;

   writeln('двоек: ', n);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Istominyura Istominyura  24.05.2020 02:29
Какие действия можно выполнять в рамке формулы​...
Babikovandrei48 Babikovandrei48  25.05.2020 01:28
Определите значение переменных a и b после выполнения фрагмента программы:a:=5;b:=7;if a b then a:=2*a else b:=2*b;a=10, b=14a=10, b=7a=5, b=14a=5, b=7​...
kmvkemerovo kmvkemerovo  25.05.2020 01:28
Как записать строку, соответствующую предложению: Если x больше 5 – увеличить x в 10 раз, иначе – увеличить x на 10.if x 5 then x:=x*10 else x:=x+10if x 5 then x:=x*10 else x:=x+10if...
katia6173 katia6173  25.05.2020 01:42
Строка записана с ошибками: if x a and x≤b then c=a*bКак правильно записать данную строку на языке Паскаль?if x a and x≤b then c:=a*bif x a and x =b then c:=a*bif (x a) and (x...
markpleshakov9oxahlf markpleshakov9oxahlf  25.05.2020 01:45
Выберите строку, в которой допущена ошибка.if a=b then c:=a else c:=b;if a:=b then c:=a else c:=b;if a b then c:=a else c:=b;if a b then c:=a else c:=b;​...
axieva35 axieva35  25.05.2020 01:28
Определите значение переменной c после выполнения следующего фрагмента программы: a := 30; b := 18; a := 3 * b - a; if a b then c := 2 * a - b else c := 2 * a + b;​...
9872105 9872105  25.05.2020 01:28
Определите значение переменной c после выполнения следующего фрагмента программы: a := 30; b := 14; a := a – 2 * b; if a b then c := b + 2 * a else c := b - 2 * a;​...
megasashabori megasashabori  25.05.2020 01:28
Как записать двойное неравенство 0 x 100 на языке Паскаль?x 0 and x 100(x 0) and (x 100)(x 0) and (x 100)(0 x) 100​...
Ksenia20066kislova Ksenia20066kislova  25.05.2020 01:28
Выберите строку, соответствующую предложению: Если х не равно 6, то увеличить х на 1if x 6 then x:=x+1if x=6 then x:=x+1if x 6 then x+1if x 6 else x:=x+1​...
Zavgorodnev04 Zavgorodnev04  24.05.2020 01:09
Как проще всего указать параметры публикации сайта в облако при работе в Visual Studio?​...

Популярные вопросы