Переделайте на цикл while var i,n,x,y: longint; begin read(n); x: =1; y: =0; for i: =1 to n do begin if i mod 2=0 then y: =x+y else x: =x+y; end; if n mod 2=0 then writeln(y) else writeln(x); end.

255

491

Посмотреть ответы 2

Ответы на вопрос:

Мариелла17

Информатика

4,8(13 оценок)

var i,n,x,y: longint;

begin

read(n);

x: =1;

y: =0;

i: =1;

while (i< =n) do begin

if i mod 2=0 then y: =x+y else x: =x+y;

inc(i);

end;

if n mod 2=0 then writeln(y) else writeln(x);

end.

masya05781

Информатика

4,6(25 оценок)

Uses crt; var b: array [1..10] of real; min,max,x: integer; sum,pr,t: real; begin sum: =0; pr: =1; for x: =1 to 10 do begin write('b[',x,']: '); readln(b[x]); end; min: =1; max: =1; for x: =1 to 10 do begin if b[x]< b[min] then min: =x; if b[x]> b[max] then max: =x; end; t: =b[min]; b[min]: =b[max]; b[max]: =t; if max> =min then for x: =min+1 to max-1 do sum: =sum+b[x] else for x: =max+1 to min-1 do sum: =sum+b[x]; for x: =1 to 10 do if b[x]< 0 then pr: =pr*b[x]; for x: =1 to 10 do write(b[x],' '); writeln; writeln(sum); writeln(pr); end.