Var a,b:real;
begin
writeln ('Введи два вещественных числа');
readln (a,b);
if a<b then a:=0
else if b<a then b:=0;
writeln (a:5:2,' ',b:5:2);
readln;
end.
Если я правильно поняла.
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var a:=MatrGen(n,n,(i,j)->
(i=j) or (j=n-i-1) ? 1 :
(j>i) and (j>n-i-1) or (j<i) and (j<n-i-1) ? 0 : 2);
a.Println(2)
end.
Первый цикл: 1*2+10 = 12
Второй цикл: 12*2+10 = 34
Ответ: 34
На экране появится квадрат. Черепашка проходит 45 шагов вперед, поворачивается на 90 градусов, опять проходит 45 шагов, опять поворачивает... И так 180 раз.
1) 2048
2) 2
3) 32
4) 3
Если помог, нажимайте "Спасибо"