CLS
a:
INPUT "введи основание"; a
IF a<=0 THEN PRINT "не может быть": GOTO a
b:
INPUT "введи высоту"; h
IF h<=0 THEN PRINT "не может быть": GOTO a
S=a*h/2
PRINT "площадь треугольника равна"; S
END
2 кб = 2000 б (бо приставка к (кіло-) борівнює 10³=1000 )
<span>соответственно и 2000 б ≠ 3 кб</span>
Var a : integer;
begin
writeln('Введите число');
read(a);
if (a mod 2 = 0) then a:= a div 2 else a:=a;
writeln(a);
end.
Общий ресурс, или общий сетевой ресурс, — в информатике, это устройство или часть информации, к которой может быть осуществлён удалённый доступ с другого компьютера, обычно через локальную компьютерную сеть или посредством корпоративного интернета, как если бы ресурс находился на локальной машине.