<span>Program HappyNewYear; </span><span>
Uses GraphABC;
Begin
SetWindowSize(600,400);
line(250,100, 300,50);
lineto(350,100);
lineto(250,100);
floodfill(300,70, clgreen);
line(220,200, 300,100);
lineto(380,200);
lineto(220,200);
floodfill(300,150, clgreen);
line(200,300, 300,200);
lineto(400,300);
lineto(200,300);
floodfill(300,250, clgreen);
rectangle(290, 300,310, 320);
floodfill(300,305, clbrown);
line(0, 300, 100, 350);
lineto(200, 320);
lineto(400, 320);
lineto(600, 370);
lineto(600,400);
lineto(0,400);
lineto(0,300);
end. </span>

0 0

4 года назад

Помогите решить! Дана сторона квадрата.Найти его периметр,площадь,длину диагонали.S=a², P=4a, d=a√2

shost666

Var S, P, d, a : real;
begin
write('Введите значение а: ');
readln(a);
S := a * a;
P := 4 * a;
d := a * sqrt(2);
writeln('S = ', S, ', P = ', P, ', d = ', d:1:5); // последнее написано для вывода
// 5 знаков после запятой
end.

0 0

4 года назад

Помогите пожалуйста задачу решить ввод:а и б ,вывести результаты сравнения

Антон212133 [342]

Var
a,b:integer;
begin
Write('вводите a,b: ');
Read(a,b);
if a>b then Writeln('Первое число больше')
else
if a<b then Writeln('Второе число больше')
else Writeln('Числа равны')
end.

0 0

4 года назад

Для чего служат клавиши shift ctrl enter tab esc page up down num kock caps home end backspace delete в microsoft word

Владислав1989

Shift для обозначения символа верхнего регистра)

0 0

4 года назад