Readln как и read вводит переменную командой read (x); также и readln (x); но перед этим надо в var внести переменную x
ответ четыре так как получается 1100011
Ответ 30 удачная контрольной
A:1,2,3,4,5;B:-1,-2,-3,-4,-5;C:1,2,3,4,5.
program d;
var a, b, c: integer;
begin
for c:= 1 to 5 do
begin
a:= a + 1;
b:= b - 1;
writeln (a:3,' ',b:3,' ',c:3);
end;
end.
Объем памяти = 1280*1024*8 бит = 1280*1024*8/8 байт = 1280*1024 байт =
1280*1024/1024 Кбайт = 1280 Кбайт