Составьте программу и зарисуйте блок-схему к ней. Если число, введенное с клавиатуры,...

Question

Составьте программу и зарисуйте блок-схему к ней. Если число, введенное с клавиатуры, четырехзначное и делится на 5, то вывести слово "удача".

Comments

Pascal ABC?

---

да

---

Блок схему не смогу, но паскаль- без проблем

---

Устроит?

---

конечно

---

beginvar x:=readinteger('Ввод: ');if ((x mod 5)=0) and (x in [1000..9999]) then write ('Удача')end.

Answer 1

Program n1;
var num: integer;
begin
readln(num);
if (num>999) and (num<10000) and (num mod 5=0)<br>then write('удача');
end.

---

Comments

Большое спасибо!