===== PascalABC.NET =====
begin
var Y := ReadInteger('Y =');
if Y in Range(10, 99) then
Println(Y + 18)
end.
У китайцев направления не лево право, а стороны света, с учетом того, что они производят почти всю электронику, можно предположить, что это от них пошло
var
a, b, h: real;
begin
write('Введите стороны a, b и h через пробел: ');
readln(a, b, h);
writeln('S трапеции = ', (a + b) * h / 2)
end.
128×64×128=1048576 символов. 1 символ= 1 байту= 8 бит. 1048576×8=8388608 бит, 1048576×1=1048576 байт. 1 килобайт= 1024 байта. 1048576÷1024=1024 килобайта