1) 0
2) 1
3) сигнал
4) одного байта
мне кажется, что так
Память компьютера под номером 2 больше так как гигабайтов больше
1 килобайт=1024 байт
1/2 килобайта=512 байта
Var
x,y:integer;
begin
readln (x,y);
if (x <> y) then
if (x<y) then
writeln ('Min = ',x)
else
writeln ('Min = ',y);
end.
program area;
var
a:integer; // сторона а
b:integer; // сторона b
S:integer; // площадь прямоугольника
P:integer; // периметр прямоугольника
begin
write("Введите а: "); // выводим сообщение
readln(a); // получаем значение а
write("Введите b: "); // выводим сообщение
readln(b); // получаем значение b
S:=a*b; // вычисляем площадь
P:=a*2+b*2; // вычисляем периметр
write("Площадь равна:", S); // выводим сообщение
write("Периметр равен:", P); // выводим сообщение
end.