Тема «Циклические алгоритмы»
Цикл со счетчиком
1. Чему будет равно значение целой переменной «a» после выполнения этого фрагмента программы?
a:=10;
for i:=1 to 2 do begin
a:=a-2;
end;
2. Чему будет равно значение целой переменной «a» после выполнения этого фрагмента программы?
a:=3;
for i:=1 to 2 do begin
a:=a+a;
end;
3. Какое число будет выведено на экран после выполнения этого фрагмента программы?
write(1);
for i:=3 to 5 do
write(i);
Цикл с предусловием
1.Сколько раз будет выполнен этот цикл?
i:=5;
while i 3);
2. Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 4 раза?
i:=...;
repeat
writeln('Привет!');
i:=i+1;
until (i=9);
3. Какое число будет выведено на экран в результате выполнения этого цикла?
i:=6;
write('9');
repeat
write(i);
i:=i+1;
until(i>5);
var a,b: array [1..10] of integer;
n,i,k,sum,c: integer;
begin
Randomize;
For i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i]:3);
end;
Readln (n);
For i:=1 to 10 do
begin
k:=a[i];
while k>0 do
begin
sum:=sum+(k mod 10);
k:=k div 10;
end;
f (n=sum) then
begin
inc(c);
b[c]:=a[i];
end;
end;
for i:=1 to c do
write(b[i]:2);
end.