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.
Спасибо
Ответ дал: Гость
№1. программа на паскале
program xxx;
var n : integer;
x : array[1..10] of integer;
begin
for n: =1 to 10 do
x[n]: =sqr(n) + 5;
wreteln('последовательность х: ')
for n: =1 to 10 do
write(x[i]);
readln
end.
Ответ дал: Гость
с каждым днем количество ряски увеличиваеется в 2 раза. 30 июня ряска покрыла всю поверхность озера, значит 29 июня ряской была покрыта половина озера.
Популярные вопросы