Если число, введенное с клавиатуры четырехзначное и делится на 5, то вывести слово "Удача".

Question

Будимир

23 сентября, 16:22

+2

Ответы (1)

Знаете ответ на вопрос?

Риммушка · Answer 1

Var n:integer;

begin

writeln ('Введите число') ;

read (n) ;

if (n>=1000) and (n<10000) and (n mod 5=0) then writeln ('Удача') ;

end.