Задано число определить количество одинаковых цифр в нем (Паскаль и цикл while) 8 класс

231

413

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

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

srente

Информатика

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

program Hello;

var number,val:integer;

begin

readln(number);

readln(val);

while(number<>0)

begin

if number mod 10 = val then

begin

val:= val + 1;

end;

number:= number div 10;

end;

writeln(val);

end.

58722001

Информатика

4,7(16 оценок)

Модель объекта , представленная в виде информации .информационные модели представляют объекты и процессы в образной форме . я примеры знаковых моделей. это могут быть формулы (законы ньютона ), таблица (периодическая таблица менделеева ),и текст ( программы на языке программирования ).