:(
1- 49
2- 50
3- 51
4- 52
5- 53
6- 54
:)
Ответ: 54
Const n=20;
var a: Array [1..n] of integer;
i,j,m,d,dm: Integer;
begin
for i:=1 to n do
a[i]:=random(100);
writeln (a);
for i:=1 to n do
begin
d:=0;
for j:=1 to a[i] do
if a[i] mod j = 0 then d:=d+1;
if d>dm then
begin
dm:=d;
m:=i
end
end;
writeln (m)
end.
Ssh-криптографический протокол,более безопасен и широко используется
Напиши свое ФИО, подсчитай количество букв + 2 пробела = сумма * 16 бит (или на 2 байта) результат готов!
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