Вопрос задан 08.07.2023 в 07:40. Предмет Информатика. Спрашивает Иманова Дарина.

Помогите пожалуйста! Отдаю последние баллы:( ПАСКАЛЬ 1) Дано двузначное число а. Если число

нечетное и не кратное 3, то найти произведение предпоследней и последней цифр числа, если число кратное 5, то вывести последнюю цифру числа, в остальных случаях вывести число без изменения. 2) Дано число а. Если число двузначное или кратное 4, то вывести число, уменьшенное в 2 раза; если число четное, но не кратное 4, то вывести последнюю цифру числа.
0 0
Перейти к ответам

Ответы на вопрос

Внимание! Ответы на вопросы дают живые люди. Они могут содержать ошибочную информацию, заблуждения, а также ответы могут быть сгенерированы нейросетями. Будьте внимательны. Если вы уверены, что ответ неверный, нажмите кнопку "Пожаловаться" под ответом.
Отвечает Седельникова Алина.

// PascalABC.NET

begin

 var n := ReadInteger('Введи двухзначное натуральное число:');

 if n.IsOdd and (n mod 3 <> 0) then

   Print((n div 10) * (n mod 10))

 else if n mod 5 = 0 then

   Print(n mod 10)

 else

   Print(n);

end.

// задание 2

begin

 var n := ReadInteger('Введи натуральное число:');

 if (n in 10..99) or (n mod 4 = 0) then

   Print(n / 2)

 else if n.IsEven and (n mod 4 <> 0) then

   Print(n mod 10)

end.

0 0
Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.

Конечно, я могу помочь вам с этим заданием на языке Паскаль. Вот решение для каждого из ваших заданий:

  1. Дано двузначное число а. Если число нечетное и не кратное 3, то найти произведение предпоследней и последней цифр числа, если число кратное 5, то вывести последнюю цифру числа, в остальных случаях вывести число без изменения.
pascal
var a, tensDigit, onesDigit, result: integer; begin write('Введите двузначное число: '); readln(a); tensDigit := a div 10; onesDigit := a mod 10; if (a mod 2 <> 0) and (a mod 3 <> 0) then result := tensDigit * onesDigit else if a mod 5 = 0 then result := onesDigit else result := a; writeln('Результат: ', result); end.
  1. Дано число а. Если число двузначное или кратное 4, то вывести число, уменьшенное в 2 раза; если число четное, но не кратное 4, то вывести последнюю цифру числа.
pascal
var a, result: integer; begin write('Введите число: '); readln(a); if (a >= 10) or (a mod 4 = 0) then result := a div 2 else if a mod 2 = 0 then result := a mod 10 else result := a; writeln('Результат: ', result); end.

Надеюсь, это поможет вам выполнить задание успешно. Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать. Удачи!

0 0

Похожие вопросы

Топ вопросов за вчера в категории Информатика

Последние заданные вопросы в категории Информатика

Задать вопрос