Регистрация
Elementrix534
18.06.2020 23:40
Информатика
Есть ответ 👍

Алгоритмді қалай тексеруге болады

296
299
Посмотреть ответы 1

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

насвай4
насвай4
4,8(23 оценок)
Var i, a, s: integer; begin       readln(a);       for i : = a to 500 do           s : = s + i;       writeln(s); end.2)  var i, a, s, c, b: integer; begin      readln(a, b);       for i : = a to b do      begin          s : = s + i;           c : = c + 1;       end;       writeln(s / c: 4: 2); end.3)const n=10; var i, b, s: integer;     a: array [0..n] of integer; begin      readln(b);       for i : = 0 to n do a[i] : = random(9000);       for i : = 0 to n do          if (a[i] < b) then s : = s + i;       for i : = 0 to n - 2 do          if (a[i+1] = b) then  writeln('(', a[i], '; ', a[i+2], ')');       writeln(s); end.=)

Популярно: Информатика