Question

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

Answer 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.