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

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

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

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

begin
  var n:=ReadInteger('n=');
  if (n mod 3=0) or nlt;70 then Writeln('Это число кратно трем')
  else Writeln(n+1)
end.
//Согласен, весьма странноватое условие, вот старенький паскаль для контраста


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


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт