Не могу понять, где тут ошибка ( Программа Pascal ). Помогите, пожалуйста: Program...

Question

Не могу понять, где тут ошибка ( Программа Pascal ). Помогите, пожалуйста:
Program delenie_na_4;
Var a: integer;
Begin
write ('4');
Read (a);
If 16 mod 4=0 then
write ('число'; 16, 'делится на 4')
Else
write ('число',16, 'не делится на 4')
End

Comments

Тут вагон и тележка ошибок. Что должна программа делать?

---

И зачем отметили как нарушение?

---

Здесь не телепаты, вы задали вопрос некорректно, т.к. не указали, что должна делать программа. Или она проверяет делимость a на 4, или делимость 16 на a, или делимость 16 на 4, и в этом случае переменных тут вообще не надо.

Answer 1

Program delenie_na_4;
Var a: integer;
Begin
   write ('4');
   Read (a);
   If a mod 4=0
   then
      write ('число ', a, ' делится на 4')
   Else
      write ('число ', a, ' не делится на 4');
End.

Comments

да и вам же нужно узнать, делится ли а на 4, поэтому нужно писать write "('число'; a, 'делится на 4')"

---

А почему можно написать только число 16?

---

Наоборот, не нужно писать 16, потому что программа состоит не в проверке делимости 16 на 4 (что очевидно), а в проверке делимости а на 4

Answer 2

Var a: integer;
Begin
write ('Введите число: ');
Readln (a);
If a mod 4=0 then writeln ('число ', a, ' делится на 4')
Else writeln ('число ',a, ' не делится на 4');
End.

Comments

If 16 mod 4=0 then writeln ('число ', a, ' делится на 4') - при чем тут 16 и a? Задание некорректно.

---

Ну ответ же получися 4

---

Получился*

---

Здесь не телепаты, вы задали вопрос некорректно, т.к. не указали, что должна делать программа. Или она проверяет делимость a на 4, или делимость 16 на a, или делимость 16 на 4, и в этом случае переменных тут вообще не надо.

---

Ну по названию программы всё понятно

---

Деление чего на 4? 16 или переменной a?

---

Проверять делимость 16 на 4 бессмысленно, поэтому а на 4

---

Да у нас в школе презентация была по такой проге

---

Там название проги вот так выглядело

---

очепятался. исправил.