program dhisla;
var a,b,c:real;
begin
readln(a,b,c);
if (a<b)and(b<c) then begin a:=2*a; b:=2*b; c:=2*c; end
else a:=abs(a); b:=abs(b); c:=abs(c);
writeln(a ,b,c);
end.<span>
</span>
<span>Program matrica;
Uses crt;
Var a:array [0..8 , 0..8] of integer;
sum1,sum2,i,j:integer;
begin
randomize;
sum1:=0;
sum2:=0
for i:=1 to 8 do
begin
Writeln;
for j:=1 to 8 do
begin
a[i,,j]:=random(10);
if i=j then sum1:=sum1+a[i,j];
if i+j=9 then sum2:=sum2+a[i,j];
Write(a[i,j], ' ');
end;
end;
writeln('Сумма чисел первой диагонали -',sum1,' </span>'Сумма чисел второй диагонали<span>' ,sum2,');
end.</span>
1).Использовал цикл,но условия не до конца понял
program c1;
var n,i:integer;
y,l:real;
begin
l:=1;
readln(n);
for i:=1 to n do
begin
y:=y+(1/l);
l:=l+1;
writeln(y);
end;
end.
2).
program c1;
var n,i:integer;
begin
readln(n);
for i:=1 to n do
begin
if (i mod 3=2) then write(i,' ');
end;
end.
<span>Словосочета́ние — это соединение двух или нескольких
знаменательных слов, связанных по смыслу и грамматически, служащее для
расчленённого обозначения единого понятия (предмета, качества, действия и
др.).</span>