Из условия следует, что на одной странице
символа, а раз так, в тексте
символа. Следовательно, текст будет весить
бит, или 56320 байт, или 55 КиБ:)
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Какое число получилось?');
Writeln('Вы загадали число ',n-10)
end.
7x+6y+24, 14x+12y+20 и <span>21x+18y+3 — у этих трёх уравнений соотношение коэффициентов при х и у = 7:6 (7:6, 14:2 и 21:18)</span>
Var
x,y:real;
begin
Write('x='); Read(x);
if x>0 then y:=x-2
else
if x=0 then y:=5*x+10
else begin
Writeln('неверное значение x');
exit
end;
Writeln('y=',y)
end.