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.
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrString(5);
var b := a.Select(t -> t.Length).ToArray;
var n := b.Max;
for var i := 0 to 4 do
Writeln(a[i]:n, b[i]:3)
end.
Нарисуй : под буквой а слог рок будет подарок, нарисуй сорок а = сорока, нарисуй : ''подача = будет слово дача или наоборот напиши слово да и над ним слог ча ... Много ребусов придумать можно и просто и легко ( если нужна помощь с ребусами обращайся ко мне)