Напишите в паскале пжлДано натуральное число

Question

Напишите в паскале пжлДано натуральное число. Определить какое из цифр встречается в этом числе чаще 0 или 9

Answer 1

70

igor01

23 февраля 2023

Var s: string; i, z, n, a: integer; begin readln (a); s: =floattostr (a); for i: =1 to length (s) do begin if (s[i]='0') then inc (z); if (s[i]='9') then inc (n); end; writeln (z, ', n); if (z > n) then writeln ('"0" > "9"'); if (z < n) then writeln ('"0" < "9"'); if (z=0) and (n=0) then writeln ('"0"="9"=0! ') else if (z=n) then writeln ('"0"="9"=', z); end. Только я тут испугался аж: все правильно, а не так пишет х) Если ввести число, начинающееся с нуля, то первые нули отбросятся

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: