Регистрация
yuliadruzhko
04.06.2020 13:44
Информатика
Есть ответ 👍

Чем занимается юридическая программа ayfie ?

214
333
Посмотреть ответы 1

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

3296121116i
3296121116i
4,7(5 оценок)
Uses crt; var i,a,s,min: integer; begin write('vvedite 4islo: '); read(a); s: =0; min: =a mod 10; while a> =1 do begin i: =a mod 10; a: =a div 10; if i> min then s: =s+1; end; if s> 0 then write('ne verno') else write('4islo zapisano verno'); read; end.  так пойдет?

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