Определить, что будет напечатано в результате работы след программы . Алгоритм яз : Алг Нач цел b , c b := 0
5-9 класс
|
c := 0
нц пока b <> 10
c := c + b
b := b + 1
кц
вывод c
желательно с обьяснением
Разберем все по порядку...
Смотрим на :
Алг
Нач
цел b , c
b := 0
c := 0
Все эти строки посвящены тому, чтобы просто присвоить b и с по 0.
Дальш
нц пока b <> 10
c := c + b
b := b + 1
кц
Я лично разобрался в этих странных буковках ,зная язык програмирования - Pascal.
Очевидно, что это цикл (While), кц - окончание цикла.
Разберемся, что сдесь происходит:
Так... пока b<>10 программа суммирует заданное значение B, а потом увеличивает b на 1, и так десять раз.
тоесть с будет изменяться:
0, 1, 3,6,10,15,21,28,36,45 - это окнечный результат, потому что когда b=9, и ему присваивают: b:=9+1=10 цикл - окончивается. Итого, в результате цикла,с=45.
Дальше:
вывод c
Все знают ,что это озночает.
Ответ: на экран будет выведено : 45
С = 45
Это цикл, который будет повторяться пока b не равно 10, как только b = 10 выводится значение переменной с
Другие вопросы из категории
Дан ряд чисел: 1+2+2+4+8+32... (умножаем на предыдущее число). Пользователь вводит сколько должно быть чисел в этом ряду, а программа должна посчитать их сумму. Плиз, напишите в Паскале!
С помощью функции random сгенерировать целое семизначное случайное число. Определить в этом числе количество четных цифр...
зарнее благодарна)))
Читайте также
Var m, n : integer;
begin
m := 50;
for n := 1 to 7 do
m := m – 7;
write(m);
end.
Определите, что будет напечатано в результате работы следующей программы.Алгоритмический язык
var n, s: integer;
begin
n := 1;
s := 0;
while n <= 101 do begin
s := s + 7;
n := n + 1
end;
var n, s: integer;
begin
n := 0;
s := 512;
while s >=0 do begin
s := s -20;
n := n + 1
end;
write(n)
end