Var
l: integer;
begin
writeln('Введите длину ребра куба');
readln(l);
writeln('Объём куба равен ', l*l*l);
writeln('площадь поверхности куба равна ',l*l*6);
readln;
end.
<em>// PascalABC.NET 3.2, сборка 1425 от 22.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrFill(ReadInteger('n='),0);
a[0]:=1; a[a.Length-1]:=1; a.Println;
end.
<u>Пример</u>
n= 10
1 0 0 0 0 0 0 0 0 1
Var age:integer;
begin
readln(age);
if ((age mod 100 >= 10) and (age mod 100 <= 19)) then writeln(age, ' лет')
else if (age mod 10 = 1) then writeln(age, ' год')
else if ((age mod 10 >= 2) and (age mod 10 <= 4)) then writeln(age, ' года')
else writeln(age, ' лет');
<span>end.</span>
Идем от обратного - получим из числа 37 число 3 операциями "раздели на 3" и "вычти 4".
37 нацело на 3 не делится, поэтому
37-4=33
33/3=11
11-4=7
7-4=3
Вернемся к исходным обозначениям.
3+4=7
7+4=11
11*3=33
33+4=37
Ответ: 2212