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 раз(а)
1)16.08899817075
нужно кбайти перевести в биты ы поделить на 128000
2) 608 Кбайт
Нужно 256000*19перевести в кбайты
нач. пункт:лев ниж угол
1 сместиться на 5 клеток в верх
2 повернуться на 90 градусов в право
3 сместиться на 2 клетки вперёд
4 повернуться на 90 градусов в право
5 сместитьтся на 2 клетки вперёд
6 повернутся на 90 градусов в лево
7 сместится на 2 клетки вперёд
8 повернутся на 90 градусов в лево
9переместиться 2 клетки
10 повт 8 и 9
11 повторить всё это ещё один раз
Компьютер играет значимую роль в нашей жизни. Мы на нём можем смотреть полезную информацию, сохранять файлы с нужной для нас информацией и передавать информацию другим пользователям. Компьютер
-это поле для деятельности/работы человека.На нём мы можем даже ПРОГрАМИРОВАТЬ и помогать людям, допустим приложение Znanija.com.
(вы довольны?)
1)
var
Sk, Ss, R, A : integer;
begin
read(R, A);
Sk := pi*R*R;
Ss := A*A;
If Sk > Ss then write ('Площадь круга больше')
else
If Ss > Sk then write ('Площадь квадрата больше')
else write <span>('Площади равны')
</span>end.
2) не знаю