Даны четыре целых числа. определить сумму тех из них, которые кратны трем. оператор цикла...

Question

Даны четыре целых числа. определить сумму тех из них, которые кратны трем. оператор цикла не использовать.
в паскале.. пожалуйста, даю 20 балов...

Answer 1

//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
  var s:=0;
  var a:=ReadInteger('Введите 1 число');
  var b:=ReadInteger('Введите 2 число');
  var c:=ReadInteger('Введите 3 число');
  var d:=ReadInteger('Введите 4 число');
  if a mod 3 =0 then s:=s+a;
  if b mod 3 =0 then s:=s+b;
  if c mod 3 =0 then s:=s+c;
  if d mod 3 =0 then s:=s+d;
  println('Сумма кратных 3 =  ',s);
 
end.

Тестовое решение:
Введите 1 число 9
Введите 2 число 16
Введите 3 число 18
Введите 4 число 0
Сумма кратных 3 =   27