Ввести с клавиатуры 2 целых числа: m, n. Если n ≤ m, то вывести 1, в противном случае — любое другое число. Напишите программу в Паскаль.

Ввести с клавиатуры 2 целых числа: m, n. Если n ≤ m, то вывести 1, в противном случае — любое другое число. Напишите программу в Паскаль.
Гость
Ответ(ы) на вопрос:
Гость
var m, n: integer; begin readln(m, n); if n <= m then writeln(1) else begin randomize; writeln(random(50)); end; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы