При каком наибольшем введенном числе d после выполнения программы будет напечатано 89?

Geind 10 окт. 2020 г., 19:28:35

Программа должна вывести 89, то есть N после цикла должна стать равной 89.

Изначально N была равна 5, каждый повтор цикла к N прибавляется 6.

Определим количество повторов цикла (сколько раз к N должна быть прибавлена 6 для получения числа 89) :

5 + 6 * x = 89

6 * x = 84

x = 14

То есть цикл должен совершить 14 повторов.

Каждый раз к S прибавляется D (которую нужно найти), изначально S = 83.

Нам удобнее прибавлять D к нулю, а не к 83, поэтому вычтем из 1200 83 и приравняем S к нулю.

Условие в цикле теперь будет выглядеть как S 1117.

Составим неравенство :

13 * d > 1117

d > 85, 92

То есть наименьшее D, при котором цикл совершит 13 повторов - 86, значит наибольшее D, при котором цикл совершит 14 повторов - 85.

Ответ 85.

Den9092 3 окт. 2020 г., 23:33:47 | 5 - 9 классы

С решением пожалуйста : запишите число которое будет напечатано в результате выполнения программы var n, s : integer ; begin n : = 0 ; s : = 0 ; while s< ; = 325 do begin s : = s + 10 ; n : = n + 3 ?

С решением пожалуйста : запишите число которое будет напечатано в результате выполнения программы var n, s : integer ; begin n : = 0 ; s : = 0 ; while s< ; = 325 do begin s : = s + 10 ; n : = n + 3 end ; write(n) end.

Йчуметнлщдшщгапм5689 22 авг. 2020 г., 00:02:41 | 5 - 9 классы

Найдите значение переменной А после выполнения программы VAR A : INTEGER BEGIN A : = SQRT(16) : END?

Найдите значение переменной А после выполнения программы VAR A : INTEGER BEGIN A : = SQRT(16) : END.

Ав54 29 февр. 2020 г., 07:56:28 | 10 - 11 классы

При каком наименьшем введенном числе d после выполнения программы будет напечатано 63?

При каком наименьшем введенном числе d после выполнения программы будет напечатано 63?

Var n, s, d : integer ; begin readln(d) ; n : = 3 ; s : = 57 ; while s < ; = 1200 do begin s : = s + d ; n : = n + 4 end ; write(n) end.

TasyaSnow 22 дек. 2020 г., 12:59:22 | 5 - 9 классы

Укажите результат выполнения программы var a, b : integer procedure proc(var a : integer ; b : integer) begin b : = 4 ; a : = 6 ; b : = a + b ; end ; begin a : = 2 ; b : = 3 ; proc(a, b) ; writeln(a, ?

Укажите результат выполнения программы var a, b : integer procedure proc(var a : integer ; b : integer) begin b : = 4 ; a : = 6 ; b : = a + b ; end ; begin a : = 2 ; b : = 3 ; proc(a, b) ; writeln(a, ' ', b) ; end.

Banannn1 8 апр. 2020 г., 05:35:38 | 5 - 9 классы

Помогите пожалуйста?

Помогите пожалуйста.

Запишите число, которое будет напечатано в результате выполнения программы : var s, n : integer ; begin s : = 33 ; n : = 1 ; while s> ; 0 do begin s : = s - 7 ; n : = n * 3 end ; writeln(n) end.

Zhannna112 12 сент. 2020 г., 21:28:35 | 10 - 11 классы

Что будет напечатано программой, если для ввода заданы числа 2, 3 и 1?

Что будет напечатано программой, если для ввода заданы числа 2, 3 и 1?

Var a, b : integer ; begin read(a, b, a) ; writeln(b, a, b, a) end.

11111109 26 июн. 2020 г., 15:33:09 | 10 - 11 классы

При каком наибольшем введенном числе d после выполнения программы будет напечатано 55?

При каком наибольшем введенном числе d после выполнения программы будет напечатано 55?

Var n, s, d : integer ; begin readln(d) ; n : = 0 ; s : = 0 ; while s < ; = 365 do begin s : = s + d ; n : = n + 5 end ; write(n) end.

Piskunovatanya 7 окт. 2020 г., 22:13:02 | 10 - 11 классы

Решаю, но ответ не сходится , приведите ваше решение пожалуйста?

Решаю, но ответ не сходится , приведите ваше решение пожалуйста.

При каком наибольшем введенном числе d после выполнения программы будет напечатано 55?

Paskal : var n, s, d : integer ; begin readln(d) ; n : = 0 ; s : = 0 ; while s < ; = 365 do begin s : = s + d ; n : = n + 5 end ; write(n) end.

Spasibo123 5 февр. 2020 г., 18:45:06 | 10 - 11 классы

Что напечатает данная программа : Var x : = Integer Begin x : = 2 WriteLn('x + 1 = ', x) End?

Что напечатает данная программа : Var x : = Integer Begin x : = 2 WriteLn('x + 1 = ', x) End.

Zeko02 10 дек. 2020 г., 23:41:02 | 5 - 9 классы

Program My_Prog_01 ;var n, i, x, t : integer ;beginwhile (n?

Program My_Prog_01 ;

var n, i, x, t : integer ;

begin

while (n.