Основные группы клавиш на клавиатуре.Алфавитно-цифровыеСлужебные клавишиСлужебные клавиши для редактированияСпециальные (служебные)ФункциональныеКлавиши управления курсоромЦифровая клавиатураВспомогательные<span>
</span>
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, 0, 100);
a.Println
end.
Блок-схема во вложении. Вот, если пригодится - программа
var
h,n:integer;
begin n:=1;
while h<=24 do
begin
h:=h+3;
n:=n*2;
end;
writeln(n);
<span>end.
</span>
var a, i: integer;
begin
a := 1;
for i := 1 to 10 do
begin
writeln(a:3, ' ', a*a:5, ' ', a*a*a:8);
a := a + i;
end;
end.
Тестовое решение:
1 1 1
2 4 8
4 16 64
7 49 343
11 121 1331
16 256 4096
22 484 10648
29 841 24389
37 1369 50653
46 2116 97336
A. 25, поскольку в 3 действии мы выполняем целочисленное деление и в ответе получаем 2.