1. Что то похоже на дракона
2. Больше всего напоминает жирафа
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
begin
var a := SeqWhile(1, i -> i + 1, i -> i < 20);
Println(a);
Println(a.Where(x -> x mod 3 = 0).Average);
Writeln();
for var i := ReadInteger('a =') to ReadInteger('b =') do
writeln(i, ' ', i * i, ' ', i * i * i);
end.
Ну... Как-то так)
var
x, y: real;
begin
x := 0.5;
while x <= 25 do
begin
if x > 20 then
y := sin(x)
else
if x <= 5 then
y := sqr(cos(x))
else
y := sqrt(x);
writeln('y(', x, ') = ', y);
x := x + 1.5;
end;
end.
А) количество комнат, окон, дверей, расположение всего этого, количество этажей
б) количество этажей, количество перекрытий, толщина стен, толщина перекрытий, материал фундамента, крышы, стен
<span>в) фасад дома., его архитектура</span>