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.
Это решение для задаваемых параметров
Вопросы, недочеты в ЛС
Program Task;
Const m = 12;
Var a: Array [1..m] of Integer;
i: Integer;
Function Max(a, b: Integer): Integer;
Begin
If a > b Then
Result := a
Else
Result := b;
End;
Function Min(a, b: Integer): Integer;
Begin
If a < b Then
Result := a
Else
Result := b;
End;
Begin
WriteLn('Введите среднемесячные температуры за год (через пробел)');
For i := 1 To m Do
Read(a[i]);
WriteLn('Самая высокая температура летом равна ', Max(Max(a[6], a[7]), a[8]));
WriteLn('Самая низкая температура зимой равна ', Min(Min(a[11], a[12]), a[1]));
ReadLn;
End.
На первый вопрос:
1.Химические
2.Психофизические
3.Физические
На второй вопрос:
ИКТ-технологии для информационной<span> среды системы образования
</span>На третий вопрос:
Санитарно-эпидемиологические правила и нормативы устанавливают санитарно-эпидемиологические требования к размещению, устройству, оборудованию, содержанию, противоэпидемическому режиму, профилактическим и противоэпидемическим мероприятиям, условиям труда персонала, организации питания пациентов и персонала медицинских организаций.
На четвертый вопрос:
Гигиенические нормативы — установленные исследованиями допустимые максимальные или минимальные количественные и (или) качественные значения показателя, характеризующего тот или иной фактор среды обитания с позиций его безопасности и (или) безвредности для человека.
На пятый вопрос:
технические требования это требования которые нужно использовать при работе с техникой , монитор даёт плохое влияние ( лучами) на глаза и мозг облучая их .
Начало четвертого круга или цикла.
Ральф Джонсон, Эрих Гамма, Ричард Хелм, Джон Влиссидес.
