целые числа,четные числа (3шт)

@Empty21 · Регистрация: 30.10.2010

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

2) Урожай яблок в 1990г - 20 тонн,каждый год урожай уменьшался на 20%, с какого года урожай меньше 5 тонн и в каком году суммарный урожай превысит 90т.
3) напечатать столбиком все целые числа от а до b где а<b
4) Составить программу, выводящую все четные числа от N до M (N<M)

Добавлено через 34 минуты
в первой задаче не то условие написал))

Урожай яблок в 1990г - 20 тонн,каждые 2 года урожай уменьшался на 20%, с какого года урожай меньше 5 тонн и в каком году суммарный урожай превысит 90т

@кот Бегемот · 30.10.2010, 16:36

Сообщение от Empty21

напечатать столбиком все целые числа от а до b где а<b

а дважды два тебе не написать? Совсем наглость потеряли, один for не могут написать!

@Empty21 · 30.10.2010, 16:40 **[ТС]**

сделал сам короче 3 и 4 а первую не могу

Урожай яблок в 1990г - 20 тонн,каждые 2 года урожай уменьшался на 20%, с какого года урожай меньше 5 тонн и в каком году суммарный урожай превысит 90т

я только недавно начал изучать паскаль!!

@кот Бегемот · 30.10.2010, 16:46

Сообщение от Empty21

Урожай яблок в 1990г - 20 тонн,каждые 2 года урожай уменьшался на 20%, с какого года урожай меньше 5 тонн и в каком году суммарный урожай превысит 90т

Pascal

var
u,s:real;
g,f,t:integer;
begin
u:=20;
s:=20;
g:=1;
repeat
g:=g+2;
u:=0.8*u;
s:=s+u;
if (u<5)and(f=0) then 
begin
writeln('urojay<5 tonn s ',g,' goda');
f:=1;
end;
if (s>90)and(t=0) then 
begin
writeln('sbor prevysit 90 tonn s ',g,' goda');
t:=1;
end;
until (u<5)and(s>90);
readln;
end.

@Empty21 · 30.10.2010, 16:55 **[ТС]**

о)) спасибо)) только немножео не правильно, где сбор меньше 5 тонн выводит 4 года подрят , тоесть он идет еще и до того как 90 тон соберет
ну я исправил))

@Empty21 0 / 0 / 0 Регистрация: 30.10.2010 Сообщений: 28
		1
	целые числа,четные числа (3шт) 30.10.2010, 15:51. Показов 719. Ответов 4 Метки нет (Все метки) 2) Урожай яблок в 1990г - 20 тонн,каждый год урожай уменьшался на 20%, с какого года урожай меньше 5 тонн и в каком году суммарный урожай превысит 90т. 3) напечатать столбиком все целые числа от а до b где а<b 4) Составить программу, выводящую все четные числа от N до M (N<M) Добавлено через 34 минуты в первой задаче не то условие написал)) Урожай яблок в 1990г - 20 тонн,каждые 2 года урожай уменьшался на 20%, с какого года урожай меньше 5 тонн и в каком году суммарный урожай превысит 90т 0

@кот Бегемот Платежеспособный зверь 8926 / 4354 / 1642 Регистрация: 28.10.2009 Сообщений: 11,568
	30.10.2010, 16:36	2
	Сообщение от Empty21 напечатать столбиком все целые числа от а до b где а<b а дважды два тебе не написать? Совсем наглость потеряли, один for не могут написать! 0

@Empty21 0 / 0 / 0 Регистрация: 30.10.2010 Сообщений: 28
	30.10.2010, 16:40 [ТС]	3
	сделал сам короче 3 и 4 а первую не могу Урожай яблок в 1990г - 20 тонн,каждые 2 года урожай уменьшался на 20%, с какого года урожай меньше 5 тонн и в каком году суммарный урожай превысит 90т я только недавно начал изучать паскаль!! 0

@Empty21 0 / 0 / 0 Регистрация: 30.10.2010 Сообщений: 28
	30.10.2010, 16:55 [ТС]	5
	о)) спасибо)) только немножео не правильно, где сбор меньше 5 тонн выводит 4 года подрят , тоесть он идет еще и до того как 90 тон соберет ну я исправил)) 0