1. Чемубудет равно значение переменной к после выполнения фрагмента программы:
( )
k:=0;
FOR j:=4 TO 9 DO
begin
k:=k+j*j;
write(j=", j:2, 'k=',k:4);
end;
ответы:
a) 340
b) 120
c) 171
2. Чему равно значение переменной Р в результате выполнения фрагмента программы:
( )
var
k,p:integer;
begin
p:=2;
FOR k:=9 DOWNTO 4 DO
begin
p:=p*k;
end;
writeln(k=", k:2, 'p=', p:2)
end.
3. В каком из операторов допущена синтаксическая ошибка:
( )
a) While i<=4 do s:=s+2;
b) For i:=1 to 10 do s:=s+2;
c) For i:=10 downto 5 do s:=s+1;
d) Repeat s=s-7 until s<10;
4. Какой результат будет выдан после запуска программного кода на выполнение?
( )
var
n: longint;
sum: integer;
begin
writeln("Введите число 148");
readln (n)
sum := 0;
while n > 0 do begin
if n mod 10 mod 2 = 0 then
sum := sum + n mod 10;
:= div 10;
end;
writeln('sum= sum) ;
end.
5. Сколько раз будет выполняться цикл for i:=3 to 7 do…;
( )
a) 8
b) 5
c) 6
d) 7
6. Сколько раз будет выполняться цикл for i:=12 downto 2 do <тело цикла>;
( )
7. Сколько раз будет выполнен цикл
for n:=1 to 40 do?
(
8. Задан оператор цикла: for i:=1 to 20 do
Чему равно значение і при первом выполнении тела цикла? ( )
9. Заполни пропуски в программе.
Вывод на экран кубов чисел от 6 до 3. ( )
var
:integer;
begin
for n:=
downto
do
writeln (n*n*n);
readln;
end.
