!СРОЧНО ИНФОРМАТИКА!
Решить подробно для Паскаль:
1. Ввести два натуральных числа: числитель и знаменатель. Определить правильная или неправильная дробь?
2. Даны два числа. Определить делится ли первое число на второе.
3.Ввести два числа, вывести меньшее из них
Решить подробно для Паскаль:
1. Ввести два натуральных числа: числитель и знаменатель. Определить правильная или неправильная дробь?
2. Даны два числа. Определить делится ли первое число на второе.
3.Ввести два числа, вывести меньшее из них
More Questions From This User See All
Answers & Comments
var
n,m:integer;
begin
writeln('Задача 1');
readln(n,m);
if n>=m then
writeln('Неправильная')
else writeln('Правильная');
writeln;
writeln('Задача 2');
n:=random(20); m:=random(20);
writeln(n,' ',m);
if n mod m = 0 then
writeln('Делится нацело')
else writeln('Не делится нацело');
writeln;
writeln('Задача 3');
readln(n,m);
if n<=m then
if n=m then writeln('Равные')
else writeln(n)
else writeln(m);
end.
Если моё решение помогло вам, пометьте его лучшим. Спасибо!