tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Ввести с клавиатуры 2 целых
Ввести с клавиатуры 2 целых числа: m, n. если n ≤ m, то вывести 1, в противном случае — любое другое число. напишите программу в паскаль.
BRICKWIH
2 18.07.2019 17:00
1
Ответы
максим123459876
22.09.2020 01:48
Var
m, n: integer;
begin
readln(m, n);
if n <= m then
writeln(1)
else
begin
randomize;
writeln(random(50));
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
54st
07.09.2019 01:00
Назовите основные группы клавиш и сколько их всего?...
tumenka140
07.09.2019 01:00
Укажите условия,истинные при x=2,y=-7,z=9. a)abs(x)+abs(y)=z b)z-y=abs(x) в)abs(x+y)=z...
Петя1134
09.09.2019 11:30
Написать программу о нахождении двухзначного числа а.найти сумму и произведение цифр данного числа,а также вывести новое число,в котором цифры числа а поменялись местами...
Данилка20022002
09.09.2019 11:30
Pascal,записи удалить все символы «+», а символы, не являющиеся «+», удвоить...
dimapudov2007
06.07.2019 04:30
P=sqrt4 * sqrt8 * sqrt12 * sqrtx = sqrt(x). решить по информатике с оператора...
SOV20
06.07.2019 04:30
S= 2/7 + 2/14 + 2/21 ++2/56 решить эту . с оператора while...
sashaWinka
14.11.2019 19:18
Дано слово, основное устройство ввода информации в память компьютера. выполните алгоритм: 1) замените все буквы а на о ; 2) заменить 4 и 5 буквына на н и у соответственно;...
vevvrqc
14.11.2019 19:16
Алгоритмический языкниже программа, записанная на трёх языках программирования.бейсикпаскальалгdim s, t as integervar s, t: integer; начinput sbeginцел s, tinput treadln...
Ijony
14.11.2019 19:15
Почему при общении друг с другом происходит обмен информацией?...
angelinaosadchy
14.11.2019 19:14
для каких из перечисленных ниже фамилий писателей и поэтовистинно высказывание: не (количество согласных букв чётно) и (первая буквасогласная) ? выберите все правильные...
Популярные вопросы
324 636 000- напишите цыфры словами...
3
напишите аккорды в си миноре т64, д7 разрешение...
3
Найдите шестой член прогрессии, если b1=4 и q=1/4...
2
После того,как на левую чашу весов поместили разновесы 1 шт.-100...
1
Написать сочинение на тему хочу и надо...
2
Найдите производную функции y=cos3x*4x^2...
3
Вкакую сторону смещается равновесие при положении температуры реакции?...
3
1.расставьте коэффиценты в предложенных схемах реакций, укажите их...
2
Распишите цепочку : alcl3- al(oh)3- al2o3...
1
решите уравнение * это умножить ^ это степень 3*6^2x+2*6^x-5=0...
2
m, n: integer;
begin
readln(m, n);
if n <= m then
writeln(1)
else
begin
randomize;
writeln(random(50));
end;
end.