Запишите на языке паскаль программы для решения следующих , используйте оператор 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.
язык pascalabcВиртуальная машина — программная и/или аппаратная система, эмулирующая аппаратное обеспечение некоторой программи исполняющая программы для target-платформы на host-платформе (host — хост-платформа, платформа-хозяин) или виртуализирующая некоторую платформу и создающая на ней среды, изолирующие друг от друга программы и даже операционные системы (см.: песочница); также спецификация некоторой вычислительной среды (например: «виртуальная машина языка программирования Си»).
Популярно: Информатика
-
zentronys27.07.2021 11:25
-
yyyye23.04.2022 10:22
-
petrov10046919.10.2022 06:43
-
ЭмилиСтоун1102.06.2020 21:50
-
Даша674126.02.2022 22:56
-
MADHOP201605.06.2020 05:47
-
ванёк2001200119.01.2023 05:49
-
Aleksandra98765432131.08.2022 22:50
-
Dodgesantafe27.12.2021 00:20
-
Одуванчик1111111101.09.2022 12:44