<span>m = 13;
n = 21;
n = 2*m-n = 2*13-21 = 26-21 = 5;
m< =n = 13 <= 5 = false </span>⇒<span> p = 4-m*n = 4-13*5 = -61
var n,m,p:integer;
begin
m:=13;
n:=21;
n:=2*m-n;
if m<=n then
p:=m+n
else
p:=4-m*n;
writeln(p);
end.
Результат:
-61</span>
Количество символов в алфавите
Var
s: integer;
begin
readln(s);
case s mod 10 of
1: writeln('Копейка');
2..4: writeln('Копейки');
5..9, 0: writeln('Копеек');
end;
<span>end.</span>
На 80 секунд
-------------------
20*1024 = 20480байт
1024/8 = 128байт
20480/128 = 160с
2048/8 = 256байт
20480/256 = 80с
160-80 = 80с
Var
i: Integer;
Begin
For i:=10 to 20 do writeln(i*i);
ReadLn;
End.