tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Вывести на экран 13 целых
Вывести на экран 13 целых случайных чисел от 5 до 9 и вещественных от -5 до 5 в два столбика
3108200614041976
3 04.07.2019 15:50
0
Ответы
Ариана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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Pharmit24
12.08.2019 18:20
Паскаль! ! с одного цикла сформировать и вывести два одномерных массива размерностью по 8 элементов каждый. массивы заполнить по формулам: а[i]=i^2+1 b[i]=2•i-1...
annaphilatovp06jxq
21.05.2021 10:35
Определите информационный объём графического объекта (задание 9 на рисунке)...
alinaantonova06
14.12.2021 17:14
Очень нужно ,буду благодарен Хоть первое задание, но желательно конечно все два...
boss110
10.07.2019 02:00
Даны следующие типы данных: type дата= record день: 1..31; месяц: 1..12; год: integer; end; ученик= record имяфамилия: string; датарождения: дата; end; списокуеников= array...
svetakovalenko4
10.07.2019 02:00
ввести натуральное число и найти сумму его цифр. пример: введите натуральное число: 12345 сумма цифр 15....
kravchenkoev
10.07.2019 02:00
Сложить 111+111 в двоичной системе и 11101001+10011101...
WallyMF
09.08.2019 04:40
Цену товара сначала повысили на 40% затем понизили на 10%.на сколько% изменилась первоначальная цена?...
Desant1111
09.08.2019 04:40
Что такое модем! как его подключить? обьясните подробно...
putinal
09.08.2019 04:40
Переведи шестнадцатиричную число dc в десятичное...
tutuginovvan
09.08.2019 04:40
Зачем продублированы клавиши на клавиатуре...
Популярные вопросы
-тапсырма.Сөз тіркестерінің м.нып, орыс тіліне аудатерінің мағынасын оқы....
2
1)Исследуйте функцию и найдите максимум, и минимум. 2) исследуйте с производной...
3
Твір на тему особливості сонетів шекспіра...
1
Children have some problems with their parents.They are writing letters to...
1
Представьте в виде квадрата двучлена и найти его значение при в=-1. 16B^2+96b+144...
1
1. В органічних сполуках атом Карбону завжди двовалентний 2. Молекула метану...
3
Что из этого прил., а что причастие?ледяной, картинный, скачущий, подгоняемый,...
2
В каком году у умер чингисхан...
3
моржа,в порядковом и количественном...
2
Какова иерархия применения стилей к абзацу?...
2
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