Синформатикой 7 класс, основные алгоритмические конструкции
Ответы
var max, c,t, count: integer; begin write('c = '); readln(c); t : = c; max : = t mod 10; while t < > 0 do begin if max < t mod 10 then max : = t mod 10; t : = t div 10; end; t : = c; count : = 0; while t < > 0 do begin if t mod 10 = max then count : = count + 1; t : = t div 10; end; writeln('count = ', count); readlnend.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Сколько чисел можно записать с двух бит? Какие это числа? Доказать.
Автор: sport2293032
Переведите подождите пока фото грузится
Автор: NikonA83
var max, c,t, count: integer; begin write('c = '); readln(c); t : = c; max : = t mod 10; while t < > 0 do begin if max < t mod 10 then max : = t mod 10; t : = t div 10; end; t : = c; count : = 0; while t < > 0 do begin if t mod 10 = max then count : = count + 1; t : = t div 10; end; writeln('count = ', count); readlnend.