Var
n:longint;
i,d,dmax:byte;
a:array[0..9] of byte;
begin
Writeln('Введите натуральное число (1..2147483647): ');
Read(n);
for i:=0 to 9 do a[i]:=0;
dmax:=0;
while n>0 do begin
    d:=n mod 10;
    if dmax<d then dmax:=d;
    Inc(a[d]);
    n:=n div 10
end;
Writeln('Максимальная цифра ',dmax,' встречается ',a[dmax],' раз(а)')
end.

<em><u>Тестовое решение:</u></em>
Введите натуральное число (1..2147483647):
235636634
Максимальная цифра 6 встречается 3 раз(а)

0 0

4 года назад

Написать программу , которая вводит с клавиатуры число от 0 до 999999(использовать переменные типа longint) и выдает на экран ди

Марина235 [7]

Var
    n: longint;
    i, sum: integer;

begin
    Readln(n);
    Sum := 0;

    while n > 0 do
    begin
        Sum := sum + (n mod 10);
        n := n div 10;
    end;
    Writeln(sum);
end.

0 0

4 года назад

Добрый вечер. ПОМОГИТЕ, ПОЖАЛУЙСТА, НАПИСАТЬ ПРОГРАММУ ДЛЯ ДАННОГО ЗАДАНИЯ.

но

Var a:array [1..5, 1..5] of integer;
s,i,j:integer;
begin
s:=0;
for i:=1 to 5 do
for j:=1 to 5 do
begin
read(a[i,j]);
if (i mod 2=0) and (j mod 2=0) then s:=s+a[i,j];
end;
writeln(s)
end.

0 0

4 года назад