Предмет: Информатика,
автор: Lolicon
Ввести с клавиатуры 2 целых числа: m, n. Если n ≤ m, то вывести 1, в противном случае — любое другое число.
Напишите программу в Паскаль.
Ответы
Автор ответа:
0
var
m, n: integer;
begin
readln(m, n);
if n <= m then
writeln(1)
else
begin
randomize;
writeln(random(50));
end;
end.
m, n: integer;
begin
readln(m, n);
if n <= m then
writeln(1)
else
begin
randomize;
writeln(random(50));
end;
end.
Похожие вопросы
Предмет: Литература,
автор: kristina3368
Предмет: Қазақ тiлi,
автор: aslanbek20041123
Предмет: Математика,
автор: sofiyagulieva3
Предмет: Математика,
автор: Аноним
Предмет: Алгебра,
автор: milki58