В левом верхнем углу окна есть панелька, а на ней несколько пиктограмм: сохранить, вперёд, назад, создать... Тут же и пиктограмма принтера для быстрой печати. Если её нажать, то документ распечатается полностью. Если пиктограммы на этой панели нет, то справа у этой панельки есть стрелочка. Нажать на стрелочку, и откроются дополнительные инструменты для этой панельки. Там есть пиктограмма принтера. Нажми на неё, и она появится на панели инструментов.
Var
ar:array[1..2000] of integer;
n,i,count:integer;
begin
readln(n);
for i:=1 to n do begin
read(ar[i]);
while ((ar[i]>0) and ((ar[i] mod 10)<>4)) do ar[i]:=ar[i] div 10;
if ar[i] mod 10 = 4 then inc(count);
end;
writeln(count);
end.
Ответ:
вот
Объяснение:
Книга написана одним из крупнейших зарубежных специалистов в области программирования. Она посвящена фундаментальным вопросам конструирования корректных и изящных программ для ЭВМ. В ней предлагается методика формального вывода программы из математической постановки задачи. При этом прослеживается развитие алгоритмов вплоть до создания программ. Материал излагается в форме остроумных и поучительных задач по программированию. Книга представляет значительный интерес для широкого круга программистов.
Книга вышла в издательстве “Мир” в 1978 году.
Смотри вложение
..............................