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.
Спасибо
Ответ дал: Гость
конструктор автомобилей: проектирования
писатель: не один писатель сейчас использует даже тот самый word чтобы печатать там
бухгалтер: сдает отчеты через компьютер, тоже и в налоговой ну или еще где-то
врач: для различных анализов
: те же нужные конференции, призентации и все такое делается на компьютере
Популярные вопросы