4)Запишите число, которое будет напечатано в результате выполнения следующей программы:
var n, s: integer;
begin
n := 1;
s := 0;
while n <= 300 do begin
s := s + 30;
n := n * 5
end;
write(s)
end.
Домашние задания: Информатика
Запишите число, которое будет напечатано в результате выполнения следующей программы. Можно с объяснением.
Ответ: 120.
А подробности - так надо следовать программе:
Для начала, перевожу программу с языка Паскаль на русский язык:
1) Использовать переменные n и s. Обе переменные целочисленные.
2) Начало:
3) n=1
4) s=0
5) Пока n⩽300 (пока n меньше либо равно 300) выполнять следующее:
6) s=s+30
7) n=n*5
8) Закончить промежуточное действие (цикл)
9) Вывести полученное значение переменной s на экран
10) Конец программы.
Итого пока n⩽300:
шаг 1: s=0+30=30; n=1*5=5<300 - значит далее шаг 2.
шаг 2: s=30+30=60; n=5*5=25<300 - значит далее шаг 3... И т. д. пока n не станет >300. Действия выполняются с последними значениями. Когда цикл закончится (n>300) тогда вывести на экран последнее значение s.
А подробности - так надо следовать программе:
Для начала, перевожу программу с языка Паскаль на русский язык:
1) Использовать переменные n и s. Обе переменные целочисленные.
2) Начало:
3) n=1
4) s=0
5) Пока n⩽300 (пока n меньше либо равно 300) выполнять следующее:
6) s=s+30
7) n=n*5
8) Закончить промежуточное действие (цикл)
9) Вывести полученное значение переменной s на экран
10) Конец программы.
Итого пока n⩽300:
шаг 1: s=0+30=30; n=1*5=5<300 - значит далее шаг 2.
шаг 2: s=30+30=60; n=5*5=25<300 - значит далее шаг 3... И т. д. пока n не станет >300. Действия выполняются с последними значениями. Когда цикл закончится (n>300) тогда вывести на экран последнее значение s.
1.
n := 1;
s := 0;
while n <= 80 do
begin
s := s + 10;
n := n * 3
end;
write(s);,
2.
n := 1;
s := 20;
while n <> 5 do
begin
n := n + 1;
s := s - 5;
end;
write(s);
3.
n := 1;
s := 1;
while n <= 80 do
begin
s := s * 2;
n := n + 20
end;
write(s);
4.
n := 0;
s := 0;
while n + s <= 50 do
begin
s := s + 5;
n := n + 10;
end;
write(s);
5.
n := 0;
s := 120;
while n < 5 do
begin
s := s div 2;
n := n + 1;
end;
write(s);
6.
n := 1;
s := 0;
while n < 5 do
begin
s := s + n;
n := n + 1;
end;
write(s);
7.
n := 1;
s := 0;
while n < 5 do
n := n + 1;
s := s + n;
write(s);
Помогите пожалуйста я прошу
n := 1;
s := 0;
while n <= 80 do
begin
s := s + 10;
n := n * 3
end;
write(s);,
2.
n := 1;
s := 20;
while n <> 5 do
begin
n := n + 1;
s := s - 5;
end;
write(s);
3.
n := 1;
s := 1;
while n <= 80 do
begin
s := s * 2;
n := n + 20
end;
write(s);
4.
n := 0;
s := 0;
while n + s <= 50 do
begin
s := s + 5;
n := n + 10;
end;
write(s);
5.
n := 0;
s := 120;
while n < 5 do
begin
s := s div 2;
n := n + 1;
end;
write(s);
6.
n := 1;
s := 0;
while n < 5 do
begin
s := s + n;
n := n + 1;
end;
write(s);
7.
n := 1;
s := 0;
while n < 5 do
n := n + 1;
s := s + n;
write(s);
Помогите пожалуйста я прошу
Похожие вопросы
- Определите, что будет напечатано в результате выполнения следующего скрипта: z = 10...
- Вычислить произведение двухзначных чисел которые при делении на 4 дают в остатке 3. Что здесь не так?
- 1) Напишите программу для подсчета произведения чисел введённых пользователем.
- Создайте программу, которая проверяет, является ли хотя бы одно из трех чисел, введенных с клавиатуры, четным.
- Очень нужна помощь! Напечатать «столбиком» квадраты всех двухзначных чисел, используя операторы While и Repeat
- Напишите программу, которая в последовательности целых чисел определяет их количество и сумма четных чисел
- Помогите написать программу в PascalABS с случайными числами
- Найдите сколько четырехзначных чисел делятся на 4 и не делятся на 8. В ответ запишите только число
- Напишите программу, которая вычисляет квадрат наименьшего из четырёх чисел
- Напишите программу которая с помощью цикла For-NEXT выводит на экран рисунок «Крылья»
алг
нач
цел s, n
s := 6
n := 1
нц пока s < 70
s := s + 13
n := n * 2
кц
вывод n
кон
Помогите пожалуйста!
алг
нач
цел s, n
s := 500
n := 200
нц пока div(s,n) >= 2
s := s + 5
n := n + 5
кц
вывод s
кон
Помогите пожалуйста!
алг
нач
цел s, n
s := 3
n := 1
нц пока s < 80
s := s + 13
n := n * 2
кц
вывод n
кон
Помогите пожалуйста!)
алг
нач
цел s, n
s := 300
n := 100
нц пока div(s,n) >= 2
s := s + 5
n := n + 5
кц
вывод s
кон
алг
нач
цел n, s
s := 0
n := 1
нц пока s < 51
s := s + 11
n := n * 2
кц
вывод n
кон
алг
нач
цел s, t
s := 1
t := 5
нц пока mod(s, t) <> 4
s := s + 2
t := t + 1
кц
вывод s + t
Кон
Помогите пожалуйста
алг
нач
цел a, b
a := 7
b := 10 + a * 2
нц пока b < 100
a := b + 12
b := a + 14
кц
вывод b
кон
алг
нач
цел s, n
s := 0
n := 20
нц пока s + n <= 100
s := s + 25
n := n - 5
кц
вывод s
кон