Если число, введенное с клавиатуры четырехзначное и делится на 5, то вывести слово "Удача".
Var n:integer;
begin
writeln(Введите число);
read(n);
if (n>=1000) and (n<10000) and (n mod 5=0) then writeln(Удача);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
