Использовать Черепаха
алг
нач
опустить хвост
вперед(100)
влево(90)
вперед(100)
влево(90)
вперед(100)
влево(90)
вперед(100)
влево(90)
вперед(100)
влево(45)
вперед(70.7)
влево(90)
вперед(70.7)
<span>кон</span>
Pascal:
var
a, b, c, d: integer;
begin
read(a); read(b); read(c); d:=0;
d:=c; c:=a; a:=d;
writeln(a, ' ',b, ' ',c);
end.
PASCAL
program qq;
var a,b,s,p : integer;
begin
writeln('Введите стороны прямоугольника');
Procedure print();
var i,j: char;
begin
for i := 'A' to 'Z' do
for j := 'A' to i do
write(j)
end;
begin
print()
end.