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