Информатика 8 класс паскаль
MD200405
3
27.04.2020 20:56
0
Другие вопросы по теме Информатика
irinaira72rt
02.05.2020 13:13
typoiya
02.05.2020 13:14
Eool
22.11.2019 09:59
Лавданим
22.11.2019 10:15
k41c0ur
22.11.2019 10:26
элеон3
22.11.2019 08:36
кристина2161
22.11.2019 08:45
Lila08564
22.11.2019 08:55
Популярные вопросы
- Расстояние между двумя пристанями ровно 125 км. Из них одновременно навстречу...
1 - Что раздражает наполеона во время Бородинского сражения?...
2 - Тектонические структуры гвианского плоскогорья...
3 - 4. Работая с п.2, заполните таблицу «Достижения арабской науки» Наука Важнейшие...
3 - 5 класс.вычислите, выбрав удобный порядок действий:а) 25*86*4б) 250*3*40...
3 - Почему Простокова не любит Просвещение? Приведи аргументы из текста и прокомментировать...
1 - Переведите не через переводчик)...
2 - Письмо другу на тему мой студенческий день, Англ мова...
1 - Знайдіть невизначений інтеграл:...
3 - Укажите факторы сместить равновесие в сторону реагентов. C(тв) + 2Cl2(г)...
2
Program qq;
var a,b,c: real;
var i:integer;
begin
writeln('Введите запас рыбы, план отлова, наименьший запас рыбы ');
readln(a,b,c);
while(a > c) do
begin
a:= a * 1.15;
a:= a - b;
inc(i);
end;
write('План выдержал ',i, ' лет');
end.