Напишите программу:Дается целое число n,напишите программу,которая проверяет(выявляет) если число n четное и если оно делится на 3 без остатка. Прога на базе PASKAL и решается через оператор if.
Var a,i:integer begin read(a) if a mod 2 = 0 then writeln('Число чётное') if a mod 3 = 0 then writeln('Число делится на 3') end.
Слушай ,а как это решить глобальными переменными )
а точнее что можно добавить приписать или изменить
Если я всё правильно понимаю, то а - это и есть глобальная переменная (Её значение можно изменять на протяжении всей программы), если ты хочешь, можно поизвращаться и записать это без ифок
А то в тетради пример с записью не имею
о покажи как
я в тетрадку забыл пример написать
а так бы сам написал глобалами
Например read(a); writeln(a%2) , Тогда, например, если вернёт 0 - значит число чётно, если 1 - нечётно, но это нахрен не надо потому что по 1 и 0 поймёшь только ты
блин (a mod 2) я хотел сказать, с питоном путаю
спасибо