Регистрация
Коля12Коля
27.05.2020 07:34
Информатика
Есть ответ 👍

Космонавты решили на луне садить берёзы, причем каждый год увели-чивать число берёз в два раза, в первый год посадили 3 берёзы. выведите на экран через, сколько лет число берёз превысит 10 000.

173
176
Посмотреть ответы 2

Ответы на вопрос:

Trap00ra
Trap00ra
4,8(97 оценок)
N: =3; i: =0; while n< =10000 do begin i: =i+1; n: =n*2; end;
СУМАСШЕДШИЙголубь
СУМАСШЕДШИЙголубь
4,4(60 оценок)

const n=10;

var a: array [1..n] of integer;

i,k: integer;

begin

write ('массив: ');

for i: =1 to n do

begin

a[i]: =random(56);

if (a[i]> =12) and (a[i]< =34) then k: =k+1;

if i< > n then write (i,' элемент: ',a[i],'; ') else write (i,' элемент: ',a[i],' ')

end;

writeln;

writeln ('количество элементов, значения которых в интервал от 12 до 34, равно ',k)

end.

Популярно: Информатика