В левом нижнем углу иконка Пуск
Нажимаете на нее, далее жмем на кнопку Завершение Работы
Монитор- графическая функция
мышь- устройство ввода
наушники- аудио устройство
процессор- устройство записи
принтер- внешнее мультимедийное устройство
var s,vk:real;
m:integer;
begin
s:=100000;
vk:=0;
m:=0;
while vk<=30 do
begin
vk:=vk+0.04*s;
s:=1.04*s;
m:=m+1;
end;
write(m);
end.
Это решение для ваших параметров.
Uses Crt;
var s,vk,pc:real;
m:integer;
begin
clrscr;
Writeln('Введите сумму вклада:');
Read(s);
Writeln('Введите месячный процент(%):');
read(pc);
pc:=pc/100;
vk:=0;
m:=0;
while vk<=30 do
begin
vk:=vk+pc*s;
s:=(1+pc)*s;
m:=m+1;
end;
write('Вклад превысит 30 руб через ',m,' месяцев');
end.
Это решение для задаваемых параметров
Вопросы, недочеты в ЛС
1. После выполнения присваивания в первых 3х строках получим a=90
2. Следовательно с=90-3*6 = 72
Ответ: 72
program xyz;
var x,y,z,a,b,c:real;
begin
readln(x,y,z);
x:=(sqrt(a)+b)/2*a;
y:=sqrt(abs((3*x+4)/(1-2*x)));
z:=abs(sqr(Cos(x)))/(Ln(1+y));
writeln(z);
end.