Program one;
var: a: real;
begin
Writeln ('Введите число');
readln (a);
If a<0 then else a:=a+1 else writeln (a)
end.
Вроде так
Номер2 1-д 2-а 3-б.
Другие не знаю.
9-с, 8- d,5-d,10-a....!!!!
40 * 50 * 256 = 512000 /8 = 64000 байт
40 * 50 * 16 = 32000 /8 = 4000 байт
40 * 50 * 2 = 32000 /8 = 500 байт
Ответа такой: (4^2-3-3-3)^2=49
А если по командам, то - 21112