Program p1;
var sum,i,m:integer;
begin
writeln('Введите m: ');
readln(m);
sum:=0;
while i<m do
begin
i:=i+1;
sum:=sum+i;
end;
writeln('Сумма натуральных чисел =',sum);
end.<span>
</span>
Var x: integer;
begin
readln(x);
if x > 0 then x := x * x
else x := x * x * x;
writeln(x);
<span>end.</span>
Алг Возраст
нач
цел возраст, единицы лет
лит текст
вывод "Укажите полное число лет: "
ввод возраст
единицы лет:=mod(возраст,10)
выбор
при возраст>=5 и возраст<=20:текст:="лет"
при единицы лет=1:текст:="год"
при единицы лет>=2 и единицы лет<=4:текст:="годa"
иначе текст:="лет"
все
вывод "Мне "+цел_в_лит(возраст)+" "+текст
кон
Ответ:
если 2 это система счисления, то ответ: 8