• 1.Дано натуральное число. Определить:
    а) является ли оно чётным
    б) оканчивается ли оно цифрой 7.
    Дано двухзначное число. Определить:
    а) кратна ли трём его сумма цифр
    б) кратна ли сумма его чисел числу а.
    ПОМОГИТЕ РЕБЯТАААА!!!! ООЙЙ КАК СРОЧНО НАДОО.

Ответы 1

  • 1 a)var  a: integer;begin  readln(a);  if a mod 2 = 0 then    println('da')  else println('net');end.======================================1 б)var  a: integer;begin  readln(a);  if a mod 10 = 7 then    println('da')  else println('net');end.================================2 аvar  a: integer;begin  readln(a);  if (a div 10+a mod 10) mod 3 = 0 then    println('da')  else println('net');end.======================================2 бvar  n,a: integer;begin  writeln('Введите число');  readln(n);  writeln('Введите a');  readln(a);  if (n div 10+n mod 10) mod a = 0 then    println('da')  else println('net');end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years