Решение практических задач

Определите, сколько раз выполнится цикл:

for var i:=15 downto 4 do
k := k + 1;

Что будет выведено после выполнения следующей программы?

var k: integer;
begin
k :=38;
if k mod 6 = 1 then begin k := k +1; write(k); end else write(k);
if k mod 2 = 0 then writeln(k div 2);
end.

Определите, сколько раз выполнится цикл:

for var i:=10 to 2 do
s := s + 1;

Чему равно значение s в конце выполнения программы:

var s,i:integer;
begin
x:=1; s:=0;
while x<=4 do
begin
s:=s+x;
x:=x+1
end;
writeln (s);
end.

Впишите пропущенную формулу в программу нахождения НОД:

var a,b:integer;
begin
write(‘первое число=’); read(a);
write(‘второе число=’); read(b);
while a<>b do
if a>b then a:=a-b else ;
writeln(‘НОД =’,a);
end.

Сколько типов циклов различают?

Что будет выведено после выполнения следующей программы?

var k: integer;
begin
k :=6;
for var i:=1 to 5 do
if k mod 3 = 1 then begin k := k +1; write(k); end else write(k);
end.

Можно с помощью алгоритма Евклида находить НОД 3-х и более чисел?

Что будет выведено после выполнения следующей программы?

var k: integer;
begin
k :=4;
for var i:=1 to 3 do
begin
if k mod 3 = 1 then begin k := k +1; write(k); end else write(k);
k:=k+1;
end;
end.