Запишите на языке паскаль программы для решения следующих , используйте оператор while: 1) запас рыбы в пруду оценен в а тонн. ежегодный прирост рыбы составляет 15%. ежегодный план отлова - в тонн. наименьший запас рыбы составляет с тонн. (запас ниже с тонн уже не восстанавливается.) составьте программу для подсчёта количества лет, в течение которых можно выдерживать заданный план. 2) дана последовательность 5, 9, 13, 17, . составьте программу для определения числа слагаемых, сумма которых равна 324. 3) составьте программу для определения количества цифр в записи произвольного натурального числа. 4) сумма 10000 рублей положена в сберегательный банк, при этом прирост составляет 5% годовых. составьте программу, определяющую, через какой промежуток времени первоначальная сумма увеличиться в 2 раза. решите, , хотя бы одну-две!
Ответы на вопрос:
program raf105;
var
b,c,let: integer;
a: real;
begin
write('запас рыбы в пруду: ');
readln(a);
write('ежегодный план отлова: ');
readln(b);
write('наименьший запас: ');
readln(c);
while a > = c do
begin
let+= 1;
a: = a+a/100*15;
a-= b;
end;
writeln('заданный план можно выдержать в течении ',let,' лет.');
end.
2.program raf105;
var a,sum,counter: integer;
begin
a: =1;
while sum< > 324 do
begin
a+= 4;
sum+= a;
counter+= 1;
end;
writeln('число слагаемых: ',counter);
end.
3.program raf105;
var a,counter: integer;
begin
write('введите число: ');
readln(a);
while a< > 0 do
begin
counter+= 1;
a: = a div 10
end;
writeln('количество цифр: ',counter);
end.
4.program raf105;
var
a: real;
let: integer;
begin
a: = 10000;
while a< 20000 do
begin
let+=1;
a+= a/100*5;
end;
writeln('сумма увеличится в 2 раза через ',let,' лет');
end.
язык pascalabcprogram pr; uses crt; var x: integer; beginwriteln('введите день недели'); readln(x); case x of1: writeln('5 пар'); 2,3: writeln('4 пары'); 4: writeln('3 пары'); 5: writeln('2 пары'); 6,7: writeln('пар нет'); end; readln; end.
==========================================================
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
vlada310831.07.2021 05:50
-
Oles111528.06.2023 18:25
-
0трупики026.05.2021 08:25
-
ninaemelyanova213.08.2020 01:40
-
лиза471022.06.2023 14:39
-
Ника11112222222x13.09.2022 07:02
-
Диханбаев26.08.2020 05:11
-
13102005bibe08.04.2021 08:52
-
s113828509.01.2020 04:28
-
elenanatalja29.09.2022 11:56
![Caktus Image](/tpl/img/cactus.png)
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.