Регистрация
sergei200457
29.09.2020 04:05
Информатика
Есть ответ 👍

Сдатчика случайных чисел получить 15 вещественных чисел n 38

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

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

prasolovadd
prasolovadd
4,6(85 оценок)
Var   i: byte; begin   for i : = 1 to 15 do     write(38 + ' '); end.
нурик283
нурик283
4,5(12 оценок)

var

  a, b, c, k : integer;

begin

  read (a, b, c, k);

  if (a mod k < > 0) and (b mod k < > 0) and (c mod k < > 0) then writeln ('н')

  else begin

    if a mod k = 0 then writeln ('числа a');

    if b mod k = 0 then writeln ('числа b');

    if c mod k = 0 then writeln ('числа c');

  end;

end.

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