оопда

24.10.2020 04:17 •  Информатика

1)Что будет выведено на экране монитора после выполнения следующего фрагмента программы:

var i,a,b: integer;
begin
b := 20;
a := 5;
for i:=1 to 5 do
begin
a := a + 1;
write( a );
end;
end.
2)Что будет выведено на экране монитора после выполнения следующего фрагмента программы:

b:=0;
while a<>0 do
begin
a:=a div 10;
h:=b*10+a mod 10;
end;
write(h);

если а=13305?
3)Что будет выведено на экране монитора после выполнения следующего фрагмента программы:

var i,a,b: integer;
begin
b := 18;
a := 8;
repeat
a := 2*a + 1;
write( a);
until (a>b)
end.
4)Дана последовательность операторов:

a:=1; b:=1;
while a+b<6;
b:=b+2*a;
end;
s:=a+b

сколько раз будет повторен цикл?
5)Что будет выведено на экране монитора после выполнения следующего фрагмента программы:

var i,a,b: integer;
begin
b := 8;
a := 3;
while (a <= b) do
begin
a := a *2+1 ;
write(a );
end;
end.