Нужно делать хорошее, чтобы люди не возненавидели. Надо говорить хорошими для окружающих делами
Может задачу недопонял. Но вот что вышло:
uses crt;
var n,i,s:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
s:=s+i;
end;
writeln(s);
readkey;
<span>end.</span>
Компьютер-незаменимая вещь в любой профессии.Учитель,доктор,экономист,во всех этих профессия не обходим компьютер.Можно сказать,что компьютер,работает"Разнорабочим и при чём во всех профессиях."Компьютер-универсальная машина для работы с информацией.Он может работать с информацией,с приложениями(рисовать рисунки или решать вычесления).Он не обходим любому человеку!
Надеюсь понравится!
Var a,b,a1,b1:real;
begin
readln(a,b);
if a = b then writeln('Числа равны')
else
if a>b then begin
a1:=2*a*b; b1:=(a+b)/2;
a:=a1;b:=b1;
writeln('a = ',a,' b = ',b)
end
else begin
b1:=2*a*b; a1:=(a+b)/2;
a:=a1;b:=b1;
writeln('a = ',a,' b = ',b);
end;
end.