напишите в паскале пжл
10-11 класс
|
Дано натуральное число. Определить какое из цифр встречается в этом числе чаще 0 или 9
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.
Только я тут испугался аж: всё правильно, а не так пишет х) Если ввести число, начинающееся с нуля, то первые нули отбросятся:)
Другие вопросы из категории
1.Получить информацию.
2.Содержать много полезной информации.
3.Не содержать информации.
4.Информация к размышлению.
заданны 4 квадратные матрицы A(n,n),b(n,n),c(n,n),d(n,n) в которых хранятся целые числа. Найти матрицы, в которых на диагоналях есть простые числа.
Читайте также
Опишите этапы решения на компьютере задачи нахождения значения a^b для целых чисел 0<a,b<10.
выводится 5 строк, в которых сначала записан порядковый номер строки с точкой, а затем слово. вывести слова в алфавитном порядке.
например :
1.информатика
2.химия
3.математика
4.физкультура
5.литература
Вывод: 1.информатика
5.литература
3.математика
4.физкультура
2.химия