Var x,s:integer;
begin
readln(x);readln(s);
while x<>5 do begin
s:=x;
x:=x+1;
s:=s+x;
end;
writeln(s);writeln(x);
end.
Если будут неправильно то попросите меня исправить
INPUT "n="; n
DIM a(n) AS INTEGER
RESTORE
FOR i = 1 TO n
READ a(i)
NEXT i
FOR i = 1 TO n - 1
mi = a(i): u = i
FOR j = i TO n
IF a(j) < mi THEN
mi = a(j): u = j
END IF
NEXT j
r = a(i): a(i) = mi: a(u) = r
<span>NEXT i
</span>FOR i = 1 TO n
PRINT a(i);
NEXT i
END
DATA 12,-3,34,2,76,0,-45,23,12,0,23,6
Тихий - Евразия, Австралия, Северная Америка, Южная Америка, Антарктида.
Индийский - Африка, Австралия, Евразия, Антарктида.
(Тихий океан и Индийский океан вместе омывают - Евразия, Австралия, Антарктида)
<em>Только вместо пустых ячеек, надо поставить свои слова<u /><u /></em>