Полезная-любая информация, которая была не известна и она верна. Например: новая теорема по геометрии или прочитал новую книгу. Бесполезная информация-та которую ты уже знал или она не верна. Например:ошибочная подсказка на уроке или про читаная недавно книга, которую ты читаешь снова. Непонятная информация-та которая опирается на знания которые ты не имеешь. Например, книга в которой много профессиональных терминов, которые ты еще не знаешь. Понятная информация есть, например, в твоем учебнике.
Var X,Y,K:integer; E,p:real; Begin Write('Сколько яблок в наличии: ');ReadLn(X); Write('Сколько человек: ');ReadLn(Y); Write('Сколько долларов за одно яблоко: ');ReadLn(E); Write('Сколько рублей за один доллар: ');ReadLn(p); if X mod 5 <> 0 then K:=X+5-(X mod 5) else K:=X; While K/Y<1.66 do K:=K+5; WriteLn('Требуемое количество яблок: ',K); WriteLn('Столько яблок придётся докупить: ',K-X); WriteLn('Стоимость докупленных яблок: ',(K-X)*E*p:0:2,' руб.'); End.
Пример:
Сколько яблок в наличии: 1 Сколько человек: 3 Сколько долларов за одно яблоко: 50 Сколько рублей за один доллар: 0.05 Требуемое количество яблок: 5 Столько яблок придётся докупить: 4 Стоимость докупленных яблок: 10.00 руб.
Прочитай в книжке. не знаю.