Вывести на экран 13 целых случайных чисел от 5 до 9 и вещественных от -5 до 5 в два столбика
Вывести на экран 13 целых случайных чисел от 5 до 9 и вещественных от -5 до 5 в два столбика
Гость
Ответ(ы) на вопрос:
Гость//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
Не нашли ответ?
Похожие вопросы