Регистрация
еваСИЛ
05.04.2020 20:17
Информатика
Есть ответ 👍

Чему равна пространственное разрешение компьютера

119
335
Посмотреть ответы 1

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

srente
srente
4,5(60 оценок)

program Hello;

var number,val:integer;

begin

 readln(number);

 readln(val);

 while(number<>0)

 do

 begin

 if number mod 10 = val then

 begin

 val:= val + 1;

 end;

 number:= number div 10;

 end;

 writeln(val);

end.

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