Дано случайное натуральное трехзначное число Х. Определить: является ли оно четным, оканчивается ли оно цифрой 5? ( тоже паскаль)
Ответы
Ответ дал:
0
Program hhh54;
var x: longint;
begin
randomize;
x:=random (900)+100;
if x mod 2 = 0 then writeln ('ЧЁТНОЕ')
else writeln ('НЕЧЁТНОЕ');
if x mod 10 = 5 then writeln ('ОКАНЧИВАЕТСЯ')
else writeln ('НЕ ОКАНЧИВАЕТСЯ');
end.
var x: longint;
begin
randomize;
x:=random (900)+100;
if x mod 2 = 0 then writeln ('ЧЁТНОЕ')
else writeln ('НЕЧЁТНОЕ');
if x mod 10 = 5 then writeln ('ОКАНЧИВАЕТСЯ')
else writeln ('НЕ ОКАНЧИВАЕТСЯ');
end.
Ответ дал:
0
спасибо большое
Похожие вопросы
2 года назад
6 лет назад
9 лет назад
9 лет назад