Не могу понять, где тут ошибка ( Программа 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
Тут вагон и тележка ошибок. Что должна программа делать?
И зачем отметили как нарушение?
Здесь не телепаты, вы задали вопрос некорректно, т.к. не указали, что должна делать программа. Или она проверяет делимость a на 4, или делимость 16 на a, или делимость 16 на 4, и в этом случае переменных тут вообще не надо.
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.
да и вам же нужно узнать, делится ли а на 4, поэтому нужно писать write "('число'; a, 'делится на 4')"
А почему можно написать только число 16?
Наоборот, не нужно писать 16, потому что программа состоит не в проверке делимости 16 на 4 (что очевидно), а в проверке делимости а на 4
Var a: integer; Begin write ('Введите число: '); Readln (a); If a mod 4=0 then writeln ('число ', a, ' делится на 4') Else writeln ('число ',a, ' не делится на 4'); End.
If 16 mod 4=0 then writeln ('число ', a, ' делится на 4') - при чем тут 16 и a? Задание некорректно.
Ну ответ же получися 4
Получился*
Ну по названию программы всё понятно
Деление чего на 4? 16 или переменной a?
Проверять делимость 16 на 4 бессмысленно, поэтому а на 4
Да у нас в школе презентация была по такой проге
Там название проги вот так выглядело
очепятался. исправил.