Математические задачи на проверку условия!!! - Паскаль, Turbo Pascal, PascalABC.NET

Rufer · 29.10.2016, 15:49

Даны натуральные числа xи y. Проверить, делится ли одно из этих чисел на 25 без остатка.

TemPie · 30.10.2016, 07:14

Код:

var
x,y:integer;
Begin
readln(x,y);
if (x mod 25=0) or (y mod 25=0) then
Write('Да.')
else
write('Нет');
End.

29.10.2016, 15:49	#1
Rufer Пользователь Регистрация: 20.06.2016 Сообщений: 10	Математические задачи на проверку условия!!! Даны натуральные числа xи y. Проверить, делится ли одно из этих чисел на 25 без остатка.

30.10.2016, 07:14	#2
TemPie Пользователь Регистрация: 16.10.2016 Сообщений: 19	Код: `var x,y:integer; Begin readln(x,y); if (x mod 25=0) or (y mod 25=0) then Write('Да.') else write('Нет'); End.`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
нужно реализовать проверку условия	Айдар94941228	Общие вопросы Delphi	1	25.03.2013 01:22
28. Как написать проверку условия, что два числа равны.	harvey	Помощь студентам	2	10.10.2012 22:33
Математические задачи.	Руслан111	Помощь студентам	1	11.02.2010 11:55
Ассемблер. Математические задачи на зачет. ИМХО, тяжелые.	Skleppy	Помощь студентам	0	04.06.2009 21:38
Pascal задача на проверку условия	werser	Помощь студентам	1	21.12.2008 00:34