///////////////////////////////////////////
Приветик ( ̄▽ ̄)
Я предпологаю, что ответ такой: Автомобиль, компьютер, городская телефонная сеть.
Удачи тебе (ಠ‿ಠ)
Самое важное программное обеспеч Те ПО это операционная система
Вроде бы так, но когда программа выполняется, то из-за такого большого кол-ва клеток (1000х1000) все отображается как один черный квадрат ))) если сделать кол-во поменьше (например 100х100), то клетки будут видны (скрин).
uses graphABC;
var
w, h, i: integer;
begin
setwindowsize(1010, 1010);
w := windowwidth div 1000;
h := windowheight div 1000;
for i := 1 to 1000 do
begin
line(i * w, 0, i * w, windowheight);
line(0, i * h, windowwidth, i * h);
end;
end.
Полагаю, что так:
program num;
uses crt;
var
x,y,z: integer;
BEGIN
write('Enter the first number: ');
readln(x);
write('Enter the second number: ');
readln(y);
z:=x*y;
if (z<0) AND ((z mod 2) = 0) then
write(z*-2)
else
write(z*1.5);
<span>END.</span>