Var k:integer;
s, x, a:real;
begin
writeln('Введите цену за первые 75 газет.');
readln(a);
writeln('Введите цену за последующие газеты.');
readln(x);
k:=133;
s:=(a*75)+((133-75)*x);
writeln(s);
end.
Чтобы это узнать надо числа 56 умножить на 12 и получится 672 символа было в тексте.
var a,b,t:longint;
begin
readln(a,b);
if(a<b) then a:=a*5 else if (b<a) then begin t:=a; a:=b; b:=t; end;
writeln('a = ',a);
writeln('b = ', b);
end.
1) 1 (1600 байт)
2) 1 (другие не подходят)
Ответ: 1.a=33 б=34
2. а=82 б=118
3.а=50 б=50
Объяснение:
хахаах я не знаю кнш ну у меня так получилось