ааааааааааааааа плиз помогите даю 35б
дано четырехзначное число. проверить на четность его последнюю цифру и на кратность 4 предпоследнюю срочно иначе мне яйца оторвут
Ответы
Ответ дал:
1
Ответ:
var x:integer;
begin
while (x<1000) or (9999<x) do
begin
write('Введите 4ехзначное число= '); readln(x);
end;
writeln; write('Число ',x mod 10);
if x mod 2=0 then writeln(' чётно')
else writeln(' нечётно');
write('Число ',(x mod 100) div 10);
if ((x mod 100) div 10) mod 4=0 then writeln(' кратно на 4')
else writeln(' не кратно на 4');
end.
MishkaBoB1723:
спасибо спас
Вас заинтересует
1 год назад
1 год назад
1 год назад
8 лет назад
8 лет назад