Var m, s: integer;
begin
readln(s, m);
if s > m then write('Саша старше Маши')
else write('Маша старше Саши')
end.
//Вычислите сумму S=m(m+1)(m+2)...n
PROGRAM B13;
VAR n,m:byte;
j:byte;
prd:real;
BEGIN
writeln('Вычисление суммы S=m(m+1)(m+2)...');
write('Введите n (1 write('Введите m: '); readln(m);
writeln('');
prd:=1;
for j:=0 to n-1 do begin
write('(', (m+j),')*' );
prd:=prd * (m+j);
end;
writeln('');
writeln('Ответ: ',prd);
END.
1. 16-57, 8-127, 2-1010111
2. 58
3. 817
Человека и чиновника.
От слов "Ягнёнок в жаркий день зашёл к ручью напиться..." заканчивая словами "Я голову с тебя сорву"
Ну, для решения надо знать силу алфавита, если это стандартные 8бит, то
10*30*70*8 =168000 бит = 21000 б ~ 20.5 кб