Нужна помощь, ребята. Паскаль не мое

Нужна помощь, ребята. Паскаль не мое

Задать свой вопрос
Евгения Дацгул
для тебя конкретно на паскале
Никита Хаматуллин
я могу на с ++ либо java
Выволокина Варвара
Только Паскаль
Новинков Виталий
ну тогда нечем посодействовать) прости
Камилла
ой смайлик не тот(
Кирилл Шлиппер
var x: integer;begin Read(x); if x = 24 then Write('делится на 3') else Write('неведомо')end.
2 ответа

PascalABC.NET 3.4.2, сборка 1826 от 07.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 if ReadInteger = 24 then Writeln('делится на 3')

 else Writeln('неведомо')

end.

Program mq;
var: a: integer;
begin
Writeln(' Введите число 24')
Readln(a);
if a/3 then
Writeln('Делиться на 3')
else
Writeln(' Неизвестно') ;
Readln;
end.
(Вроде так)
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт