Вывести на экран 13 целых случайных чисел от 5 до 9 и вещественных от -5 до 5 в два столбика

3108200614041976 3108200614041976    3   04.07.2019 15:50    0

Ответы
Ариана16112001 Ариана16112001  28.07.2020 09:55
//PascalABC.Net
var
  i,m:integer;
  a:single;
begin
  Randomize;
  for i:=1 to 13 do begin
    m:=Random(5)+5;
    a:=10*Random-5;
    Writeln(m,a:5:0)
  end
end.

Тестовое решение:
9   -4
6    2
8   -3
8    4
8    4
6    4
6    5
9   -1
8   -2
7    2
8    0
5    2
7    2
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика