Информатика 9 класс Паскаль

Question

Информатика 9 класс
Паскаль

---

Answer 1

Странное условие! Неужели, чтобы быть кратным трем, число всего лишь должно быть меньше 70?
Но раз так задача стоит, получите...

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  if (n mod 3=0) or n<70 then Writeln('Это число кратно трем')<br>  else Writeln(n+1)
end.

Answer 2

//Согласен, весьма странное условие, вот старенький паскаль для разнообразия


var
a:integer;
Begin
Read(a);
if (a < 70)or(a mod 3 = 0) then Writeln('Это число кратно трем')
  else Writeln(a + 1);
end.