ответ:Ох уж и не думал что вернусь в этот язык
Объяснение:
program название;
var a;
Begin
Writeln ("Введите число:");
Readln(a);
if (a mod 2 <> 1) then Write("Число нечетно");
else write ("Число чётное");
if (a mod 5 <> 5 and a mod 10 <> 5) then write ("Число не оканчивается на 5")
else Write ("Число оканчивается на 5");
end.
ответ:Ох уж и не думал что вернусь в этот язык
Объяснение:
program название;
var a;
Begin
Writeln ("Введите число:");
Readln(a);
if (a mod 2 <> 1) then Write("Число нечетно");
else write ("Число чётное");
if (a mod 5 <> 5 and a mod 10 <> 5) then write ("Число не оканчивается на 5")
else Write ("Число оканчивается на 5");
end.