1) Какое число будет выведено на экран после выполнения этого фрагмента программы?
write(1);
for i:=2 to 3 do цикл будет работать ровно 2 раза
write(i); тут получается с начала выведется число 2 потом 3
ответ 3
2) Чему будет равно значение целой переменной «a» после выполнения этого фрагмента программы?
a:=2;
for i:=0 to 2 do Цикл будет работать 3 раза
begin
a:=a+i 2+0=2 2+1=3 3+2=5
end;
ответ 5
3) Чему будет равно значение целой переменной «a» после выполнения этого фрагмента программы?
a:=10;
for i:=1 to 3 do Цикл будет работать 3 раза
begin
a:=a-1 10-1=9 9-2=7 7-3=4
end;
ответ 4
Объяснение:
Begin
B:=A*A*A;
End;
Var
A,B,C,D,E:longint;
Begin
ReadLn(A,B,C,D,E);
PowerA3(A,A);
PowerA3(B,B);
PowerA3(C,C);
PowerA3(D,D);
PowerA3(E,E);
WriteLn(A,' ',B,' ',C,' ',D,' ',E)
End.
1 2 3 4 5
1 8 27 64 125