Составьте програму, которая вводит с клавиатуры длину и ширину ...
Составьте програму, которая вводит с клавиатуры длину и ширину прямаугольника и определяет, является ли прямаугольник квадратом. Постройте данный прямоугольник ( единицу длины показать 5 пикселями)
Есть ответ
18.12.2022
398
Ответ
uses crt,graphABC;var x,y,xc,yc:integer;begin xc:=windowwidth div 2; yc:=windowheight div 2;
write ('Введите ширину '); read (x); write ('Введите длину '); read (y);
if (x=y) then write ('Это квадрат'); hidecursor; setpencolor(clAqua); rectangle(xc-x*5,yc-y*5,xc+x*5,yc+y*5); floodfill(xc,yc,clAqua); readkey;
end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
18.12.2022