умоляю задания по ЛОГО мирам.
Какая фигура будет нарисована (Написать название фигуры): Pd Repeat 12 [FD 60 RT 45 ]
Что появится на экране после выполнения следующей последовательности команд PD SETC 15 FD 60 RT 90 FD 40 RT 90 FD 60 RT 90 FD 40 LT 15 PU FD 20 PD FILL:
a) прямоугольник и красная область вне прямоугольника
b) красный прямоугольник
c) красный треугольник и красный прямоугольник
d) красный треугольник
//Pascal ABC.NET v3.0 сборка 1111
//1
Var
a,p,s:real;
begin
readln(a);
p:=a*4;
s:=a*a;
writeln('P=',p);
writeln('S=',s);
end.
//2
Var
a,b:integer;
begin
read(a,b);
if a>b then writeln(b);
if a=b then writeln('=');
if a<b then writeln(a);
end.
{На этом и закончу всем, кто когда либо и чем либо поддерживал данный проект. Думаю, он ещё многим послужит в критический момент. И я говорю не только про "списать домашку". Счастливо оставаться, господин Alviko. Может, ещё увидимся.
Ваш, Глеб 'I3artle' Косырев}