Var a, b, c, d, s, k: integer;
begin
write('Введите k: '); readln(k);
a := k div 1000; {тысячи}
b := (k mod 1000) div 100; {сотни}
c := (k mod 100) div 10; {десятки}
d := k mod 10; {единицы}
s := d * 1000 + c * 100 + b * 10 + a;
writeln('k = ', k, #10, 's = ', s);
end.
пусть введенный интервал будет
B и C,где B<C
var a,b,c,i:longint;
begin
read(b,c);
for i:=b to c do
if i mod a=0 then write(i);
end.
Первое - каска
Второе -тяжесть
1. Узнаем кол-во символов в тексте:
410*43*53=934390 символов
2. Узнаем время выполнения:
934390/133 приблизительно равно 7025 минут = 117 часов = 4,9 суток
32= 100000 2cc 6 бит на символ
64= 1000000 2cc 7 бит на символ
80*6/70*7 = 48/49