Запишите на языке Паскаль программы для решения последующих задач, используйте оператор
Запишите на языке Паскаль программки для решения следующих задач, используйте оператор while:
1) Припас рыбы в пруду оценен в А тонн. Каждогодний прирост рыбы сочиняет 15%. Ежегодный план отлова - В тонн. Меньший припас рыбы сочиняет С тонн. (Припас ниже С тонн теснее не восстанавливается.) Составьте программку для подсчёта количества лет, в течение которых можно выдерживать данный план.
2) Дана последовательность 5, 9, 13, 17, ... . Составьте программку для определения числа слагаемых, сумма которых одинакова 324.
3) Составьте программу для определения количества цифр в записи случайного естественного числа.
4) Сумма 10000 рублей положена в сбер банк, при этом прирост сочиняет 5% годовых. Составьте программку, определяющую, через какой просвет медли начальная сумма увеличиться в 2 раза.
РЕШИТЕ, ПОЖАЛУЙСТА, ХОТЯ БЫ ОДНУ-ДВЕ!
1.
program raf105;
var
b,c,let: integer;
a: real;
begin
write('Припас рыбы в пруду: ');
readln(a);
write('Каждогодний план отлова: ');
readln(b);
write('Наименьший припас: ');
readln(c);
while a gt;= 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 sumlt;gt;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 alt;gt;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 alt;20000 do
begin
let+=1;
a+= a/100*5;
end;
writeln('Сумма возрастет в 2 раза через ',let,' лет');
end.
Язык PascalABC
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.