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

Ответы 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
  • Добавить свой ответ

Войти через Google

или

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

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

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