
Фирс
7 год назад
Батырхан любит числа которые без остатка делятся на 3. К сожалению для очень больших чиселон не может проверить должен ли он любитьего или нет. Помогите ему написав программу, которая поможет ему.

ОТВЕТЫ

Nanonik
Jul 14, 2019
Чтобы проверить , является ли число Х кратным 3 , используем оператор mod с условием и получим
if х mod 3 = 0 then .....
program zadacha;varx: integer;
beginwriteln(vvedite chislo);readln(x);if x mod 3 = 0 then writeln(chislo , x, delitsya na 3 ) else writeln(chislo , x, ne delitsya na 3 );end.
if х mod 3 = 0 then .....
program zadacha;varx: integer;
beginwriteln(vvedite chislo);readln(x);if x mod 3 = 0 then writeln(chislo , x, delitsya na 3 ) else writeln(chislo , x, ne delitsya na 3 );end.
221
Смежные вопросы: