ПОМОГИТЕ ПОЖАЛУЙСТА.Безотлагательно!!!Задача Ne 1: Введите число Если оно делится на 7

ПОМОГИТЕ ПОЖАЛУЙСТА.Безотлагательно!!!Задачка Ne 1: Введите число Если оно делится на 7 без остатка, то прирастить его на 10, в неприятном случае прирастить его в 10 раз.

Задать свой вопрос
1 ответ

program gdd;

var

a:integer;

begin

writeln('Введи число: ');

readln(a);

if a mod 7 = 0 then

a:=a+10

else

a:=a*10;

writeln('Ответ: ',a);

end.

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


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

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

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

Войти на сайт