Регистрация
таня1697
21.02.2023 14:29
Информатика
Есть ответ 👍

На каждом следующем дне рождении винни съедает столько же меда, сколько съел на двух предыдущих вместе. на двух первых днях рождения у пяточка и кролика он съел по 0,1 кг меда. определить, сколько кг меда он съест на десятом дне рождении. программа должна быть написана с цикла в паскале.

168
311
Посмотреть ответы 2

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

AlexSubbotin11
AlexSubbotin11
4,5(2 оценок)
Var   i: integer;   s,p,p1: real; begin p: =0.1; p1: =0.1; for i: =3 to 10 do begin   s: =p1+p;   p1: =p;   p: =s; end; writeln('ответ: ',s); end.
NosoK535
NosoK535
4,6(51 оценок)
Program p1; var  a: array[1..1000] of integer; var   n, i, c: integer; begin  readln(i); c : = 0; for n : = 1 to i do  beginreadln(a[i]);     if a[i] > 0 then c : = c + 1; end; writeln(c); end.

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