Составить программу в Pascal ABC которая нарисует светофор и букву Р.
5-9 класс
|
Так?
uses graphabc;
begin
setwindowsize(245,340);
setbrushcolor(clblack); rectangle(20,20,120,320);
setbrushcolor(clred); circle(70,70,50);
setbrushcolor(clyellow); circle(70,170,50);
setbrushcolor(clgreen); circle(70,270,50);
line(150,20,150,320); arc(150,95,75,-90,90)
end.
Другие вопросы из категории
больше, то остается неизменным.
похудеть.по формуле рост минус 100...
написать то легко но учитель сказал что б говорилось на сколько худеть или поправиться надо ...(( ну ни как не могу додуматься(( помогите (( вот сама написаная программа
Program Zadacha1;
Var ves, rost, optVes:integer;
Begin
write('введите массу тела');
read(ves);
write('введите рост в см');
read(rost);
optVes:=rost-100;
if ves>optVes then write('вам необходимо похудеть' );
if ves<optVes then write('вам необходимо поправиться');
if ves=optVes then write ('ваш вес оптимальный')
End.
система) = 111 (q система)
Читайте также
координаты х и у и программа проверяет, подходит ли эта точка к графику или нет. Пример на 2 фото.
Очень нужно. 80 баллов
R, S = Pi*R2 ( R в квадрате ). Pi = 3.14
P.S Напишите полную программу
тройка натуральных чисел a, b, c является тройкой Пифагора, т.е. c^2 = a^2 + b^2.