Сколько различных значений числа 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.
Можно ввести 18 значений от 180 до 197. Из программы видно, что 14+k*5 = 69 => k = 11 29 + k*d >= 2000, отсюда получаем минимальное значение d d = 1971/11 = 179,18 , но так как d - целое, то d min = 180. Максимальное значение d из условия: d max = (1999-29)/10 = 197
Компьютер библиотекарь обычному человеку, который пришел в библиотеку, найти нужную ему книгу из списка книг всей большой библиотеки. Человек просто вбивает название нужной ему книги и компьютер быстро находит данную книгу и говорит, где она находиться. Так же и с работников самой библиотеки, если они не могут найти книгу для своего клиента, то они смотрят, есть ли данная книга в библиотеке, и где она находиться. Это намного упрощает работу библиотекаря! Ведь не надо бегать по всей библиотеке и запоминать, где находиться книга и есть ли она вообще!
{$R+,S+,Q+} uses SysUtils; const R=1000;type Mas= array [0..R] of integer;var a: Mas; en,n: integer; x,y,z,q,w: char;function push(n: integer): string;begin a[en]:=n; en:=en+1; push:='ok';end;function pop(): integer;begin en:=en-1; pop:=a[en]; a[en]:=0;end;function back(): integer;begin back:=a[en-1];end;function size(): integer;begin size:=en;end;function clear(): string;begin en:=0; clear:='ok';end;function exit(): string;begin exit:='bye';end;begin en:=0; repeat read(x); if x='p' then begin read(y); if y='u' then begin read(z,q,w); readln(n); writeln(push(n)) end else begin readln(z); writeln(pop()); end; end; if x='b' then begin readln(y,z,q); writeln(back()); end; if x='s' then begin readln(y,z,q); writeln(size()); end; if x='c' then begin readln(y,z,q,w); writeln(clear()); end; if x='e' then begin readln(y,z,q); writeln(exit()); end; until x='e';end.
Из программы видно, что 14+k*5 = 69 => k = 11
29 + k*d >= 2000, отсюда получаем минимальное значение d
d = 1971/11 = 179,18 , но так как d - целое, то d min = 180.
Максимальное значение d из условия: d max = (1999-29)/10 = 197