![]()
|
|||||||
while s <= 1318 do begin. write(n). var n, s, d: integer;. readln(d);. while s <= 2019 do begin. write(n). var n, s, d: integer;. readln(d);. while s <= 1800 do begin. write(n). var n, s, d: integer;. readln(d);. while s <= 2570 do begin. writn: = 0; s: = 24; while s < = 1318 do begin s: = s + d; n: = n + 15 end; write(n) end. 40) ( О. В. Гасанова ) Сколько различных значений числа d можно ввести, чтобы после выполнения программы было напечатано 171? var n, s, d: integer; begin readln(d); n: = 27; s: = 12; while s < = 2019 do begin s: = s + d; n: = n + 16 end; write(n) end. 41) ( О. В. Гасанова ) Сколько различных значений числа d можно ввести, чтобы после выполнения программы было напечатано 246? var n, s, d: integer; begin readln(d); n: = 8; s: = 6; while s < = 1800 do begin s: = s + d; n: = n + 7 end; write(n) end. 42) ( О. В. Гасанова ) Сколько различных значений числа d можно ввести, чтобы после выполнения программы было напечатано 196? var n, s, d: integer; begin readln(d); n: = 7; s: = 35; while s < = 2570 do begin s: = s + d; n: = n + 9 end; write(n) end. 43) ( О. В. Гасанова ) Сколько различных значений числа d можно ввести, чтобы после выполнения программы было напечатано 69? var n, s, d: integer; begin readln(d); n: = 14; s: = 29; while s < = 2000 do begin s: = s + d; n: = n + 5 end; write(n) end. 44) ( О. В. Гасанова ) Запишите через запятую наименьшее и наибольшее значение числа d, которое нужно ввести, чтобы после выполнения программы было напечатано 53? var n, s, d: integer; begin readln(d); n: = 23; s: = 18; while s < = 1977 do begin s: = s + d; n: = n + 6 end; write(n) end. 45) ( О. В. Гасанова ) Запишите через запятую наименьшее и наибольшее значение числа d, которое нужно ввести, чтобы после выполнения программы было напечатано 264? var n, s, d: integer; begin readln(d); n: = 16; s: = 10; while s < = 3120 do begin s: = s + d; n: = n + 8 end; write(n) end. 46) Запишите число, которое будет выведено в результате работы программы: var s, n: integer; begin s: = 0; n: = 0; while s*s < = 10*s do begin s: = s + 1; n: = n + 2 end; writeln(n) end. 47) Запишите число, которое будет выведено в результате работы программы: var s, n: integer; begin s: = 0;
|
|||||||
|