var
n : integer;
s : real;
begin
write('введите n ');
readln(n);
for var i := 10 to n do s += 1/i;
writeln('s = ', s);
end.
n должно быт n >= 10
к.с.-киндер сюрприз
ш. –шоколадка
л.-леденец
1). 27к.с.=(13шт. по 3) 39л.+1к.с.
26:2=13шт по 3л.(13*3=39л.) (остаток 1к.с.)
2).39л.+1к.с.=19ш+1л. + 1к.с.
38:2=19ш. (остаток 1л.) +1к.с.
3).19ш.+1л.+1к.с.=(6 шт по 4к.с.)24к.с. + 1к.с.+1ш.+1л.
18:3=6шт по 4 к.с. (6*4=24к.с.) + остатки 1к.с.+1ш.+1л.
24к.с.+1к.с.+1л.+1ш.=25к.с. 1л. 1ш.
Ответ: 1леденец 1 шоколадка 25 киндеров сюрпризов
1 1 25
Const n = 10;
var
mas:array [1..n] of integer;
i,x,j,a,b,index:integer;
begin
write('Введите диапазон от a до b: ');
readln(a,b);
for i:= 1 to n do
begin
mas[i]:=Random(b-a+1)+a;
end;
writeln('Полученный массив: ');
for i:= 1 to n do
write(mas[i]:4);
for i:=n downto 1 do
if mas[i]>0 then
begin
index:=i;
break
end;
mas[index]:=mas[2];
writeln;
writeln('Результат выполнения задания: ');
for i:= 1 to n do
write(mas[i]:4);
readln
end.
Введите диапазон от a до b: 10 40
Полученный массив:
25 13 38 31 39 12 16 11 26 33
Результат выполнения задания:
25 13 38 31 39 12 16 11 26 13