Цикл типа пока. 1) дана последовательность операторов: а: =1; b: =2; while a+b 10 do begin а: =а+1; - id131633720201205 от Smile1smile 05.12.2020 04:49

Question

Информатика: Цикл типа пока. 1) дана последовательность операторов: а: =1; b: =2; while a+b 10 do begin а: =а+1; b: =b+1; end; s: =a+b сколько раз будет повторен цикл и какими будут значения переменных а, b, s после исполнения этой последовательности операторов? 2) сколько раз будет выполнен цикл? а) for i: =4 to 10 do s: =s+1 б) for i: =0 to 8 do s: =s+1 в) for i: =-3 to 3 do s: =s+1

Smile1smile · Accepted Answer

program p1;uses Crt;var  i, n, m, min: integer;begin  ClrScr;  Write( Длина последовательности: );  Readln(n);  Read(min);  for i := 2 to n do  begin    Read(m);    if m min then      min := m;  end;  Writeln(min);  ReadKey;end.program p2;uses Crt;var  i, n, m, max, k: integer;begin  ClrScr;  Write( Длина последовательности: );  Readln(n);  Read(max);  k := 1;  for i := 2 to n do  begin    Read(m);    if m max then    begin      max := m;      k := 1;    end    else if m = max then      k := k +...

MOGZ ответил