Program n_1;
var s, m: real; n:integer;
begin
read(s);
n:=0; m:=s;
while (m<=1.5*s) do begin
m:=m*1.03;
n:=n+1;
end;
writeln(n);
end.
Честно говоря, решение тут вообще не зависит от S. Всегда выводится одно и то же число - 14
Корпус,процессор,материнская плата,к<span>улер для процессора ,в</span>идео карта,оперативная память,жесткий диск,б<span>лок питания.</span>
Основание системы смотрите по наибольшей цифре в числе
1. 8
2. 10
3. 2
6. 9
{
правильная программа, кол-во элементов вводится с клавиатуры
}
Program Summa;
uses crt;
type a1= array of integer;
var a: a1;
m,s,n: integer;
procedure Input;
const p=1;
const q=20;
var i: integer;
begin
randomize;
begin
for i:=0 to n-1 do a[i]:=random(q-p+1)+p;
write('a[',i,']=');
readln(a[i]);
end;
end;
procedure Print;
var i: integer;
begin
write('Массив целых чисел А: ');
for i:=0 to n-1 do write(' ',a[i]);
writeln;
writeln;
end;
procedure Sum( m: integer);
var i: integer;
begin
s:=0;
for i:=0 to m-1 do s:=s+a[i];
end;
Begin
ClrScr;
write('введите кол-во элементов в массиве: ');
readln(n);
SetLength(a, n);
Input;
ClrScr;
Print;
write('Сколько элементов суммировать: ');
readln(m);
Sum(m);
writeln;
writeln('Сумма ',m,' элементов масссива равна: ', s);
Sum(n);
writeln;
writeln('Сумма всех ',n,' элементов массива равна: ', s);
Writeln ('Среднее арифмитическое всех элементов равно ', s/n);
Readkey;
end.
<u>PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=['A'..'F','X'..'Z'];
Writeln(s)
end.