Решение задач
1Дана
последовательность операторов:
a := 1; b := 1;
while a + b < 8 do Begin a :=a + 1; b := b + 2 End;
s := a + b
Сколько раз будет повторен цикл и какими
будут значения переменных a, b и s после
завершения этой последовательности операторов?
2Какими
будут значения переменных a и b после
выполнения операторов:
a := 1; b := 1;
While a <= 3 Do a := a + 1; b := b + 1.
3Определить
значение переменной s после выполнения следующих
операторов:
s := 0; i := 0; While
i<5 Do Inc(i); s := s + 100 Div i;
s := 0; i := 1; While
i>1 Do Begin s := s + 100 Div i; dec(i) End;
4Дана
последовательность операторов, вычисляющих факториал f числа n:
k := 1; f := 0:
While k<n Do f := f * k
k := k + 1;
которая содержит пять ошибок. Найдите
эти ошибки.
5Найдите
и исправьте ошибки в следующем фрагменте программы, определяющей для
заданного натурального числа n число, записанное цифрами
числа n в обратном порядке.
p := n;
While p>=0 Do
Begin
a := a + p Mod 10;
p := p Div 10
End;
Ответы на вопрос
Ответил pravdivets
0
1. 2 раза, a=3, b=5, s=8;
2. a=4, b=2;
3. s=100;
4.
k := 1; f := 0;
While k<n Do
begin
f := f * k;
k := k + 1;
end;
5.
p := n;
a := 0;
i := 1;
While p>0 Do
Begin
a := a + 10 * i * p Mod 10;
p := p Div 10;
inc(i);
End;
2. a=4, b=2;
3. s=100;
4.
k := 1; f := 0;
While k<n Do
begin
f := f * k;
k := k + 1;
end;
5.
p := n;
a := 0;
i := 1;
While p>0 Do
Begin
a := a + 10 * i * p Mod 10;
p := p Div 10;
inc(i);
End;
Новые вопросы
Литература,
2 года назад
Английский язык,
2 года назад
История,
10 лет назад
Математика,
10 лет назад
Алгебра,
10 лет назад