Задача об урожае.

@Natalia))) · Регистрация: 10.11.2011

Author24 — интернет-сервис помощи студентам

Урожай яблок в 1990 году составил 20 тонн. Далее каждые 2 года урожай уменьшался на 20%.
Начиная с какого года будет собранно менее 5 тонн. В каком году суммарный урожай яблок превысит 90?

@Puporev · 10.11.2011, 21:28

Pascal

uses crt;
var u,p,s:real;
    g,g1,g2,k1,k2:integer;
begin
clrscr;
g:=1990;
p:=0.8;
u:=20;
s:=u;
writeln(g,' ',u:4:1,' s=',s:4:1);
k1:=0;
k2:=0;
repeat
g:=g+2;
u:=u*p;
s:=s+u;
if(s>90)and(k1=0) then
 begin
  g1:=g;
  k1:=1;
 end;
if(u<5)and(k2=0) then
 begin
  g2:=g;
  k2:=1;
 end;
writeln(g,' ',u:4:1,' s=',s:4:1);
until (u<5)and(s>90);
writeln('Начиная с ',g2,' года урожай будет менее 5 т');
writeln('Урожай превысит 90 т в ',g1,' году');
readln
end.

@Natalia))) 0 / 0 / 0 Регистрация: 10.11.2011 Сообщений: 5
		1
	Задача об урожае. 10.11.2011, 19:07. Показов 1298. Ответов 1 Метки нет (Все метки) Урожай яблок в 1990 году составил 20 тонн. Далее каждые 2 года урожай уменьшался на 20%. Начиная с какого года будет собранно менее 5 тонн. В каком году суммарный урожай яблок превысит 90? 0

	10.11.2011, 21:28

Опции темы

Задача об урожае.

Решение