
Вопрос задан 08.07.2023 в 07:40.
Предмет Информатика.
Спрашивает Иманова Дарина.
Помогите пожалуйста! Отдаю последние баллы:( ПАСКАЛЬ 1) Дано двузначное число а. Если число
нечетное и не кратное 3, то найти произведение предпоследней и последней цифр числа, если число кратное 5, то вывести последнюю цифру числа, в остальных случаях вывести число без изменения. 2) Дано число а. Если число двузначное или кратное 4, то вывести число, уменьшенное в 2 раза; если число четное, но не кратное 4, то вывести последнюю цифру числа.

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

Отвечает Седельникова Алина.
// 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.



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Конечно, я могу помочь вам с этим заданием на языке Паскаль. Вот решение для каждого из ваших заданий:
- Дано двузначное число а. Если число нечетное и не кратное 3, то найти произведение предпоследней и последней цифр числа, если число кратное 5, то вывести последнюю цифру числа, в остальных случаях вывести число без изменения.
pascalvar 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.
- Дано число а. Если число двузначное или кратное 4, то вывести число, уменьшенное в 2 раза; если число четное, но не кратное 4, то вывести последнюю цифру числа.
pascalvar 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.
Надеюсь, это поможет вам выполнить задание успешно. Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать. Удачи!


Похожие вопросы
Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
Предметы
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili