<span>const N=30;
var
a: array [1..N] of integer;
i, j, min, min2, s: integer;
begin
for i:=1 to N do readln(a[i]);
for i:=1 to N do bein
for j:=1 to N do begin
if (a[min]-a[mim2] < a[i]-a[j]) then bein
min1 = i;
min2 = j;
end;
end;
end;
Если я конечно правильно задание понял)</span>
Var
i,n:integer;
s:real;
begin
readln(n);
for i:=1 to n do
s:=s+1/i;
writeln(s:4:2);
end.
var a,i:integer;
begin
write('Введите число: ');
readln(a);
for i:=1 to 7 do
writeln(a,' * ',2*i+1,' = ',a*(2*i+1));
end.
Результат:
Введите число: 4
<span>4 * 3 = 12
4 * 5 = 20
4 * 7 = 28
4 * 9 = 36
4 * 11 = 44
4 * 13 = 52
4 * 15 = 60</span>