program g; vara, b : integer; n : integer; s : integer; z: array[0..16] of integer; i : integer; v: integer; begina: =(-20); b: =20 ; n: =16 ; for i : = 1 to n dobegins : = trunc(random(b-a)+a); writeln (i: 2,'-е случайное число: ',s: 4); end; beginwriteln('індексы элементов кратных 3: '); for v: =0 to 16 do begin z[v]: =random(40)-20; if z[v] mod 3 = 0 then write(v, ' ') end; end; end.
Ответ дал: Гость
20 - 25 = -5
-5 в десятичной системе
Ответ дал: Гость
var i: integer; s: real;
begin s : = 0; for i : = 1 to 100 do s : = s + i * i; writeln(s: 7: 0); end.
Ответ дал: Гость
если прямые не пересекаются, то они или скрещиваются или паралельные
неверно, что на ноль делить нельзя, делить можно, только результатом будет или бесконечность или неопределенность
неверно, что две неодинаковые прямые могут иметь две общие точки
неверно, что ответ может быть правильным или неправильным. в любом ответе есть доля истины и доля лжи
Популярные вопросы