Напишите пожалуйста программу на языке Паскаль: Дано число

66

Напишите пожалуйста программу на языке Паскаль: Дано число. Если оно кратно 3, то увеличить его на 6, в противном случаеобнулить.

категория: информатика

ответить

в избранное

35

kimon

29 августа 2022

program blunt; var x: word; beginwrite ('Введите целое число='); readln (x); if (0=(x mod 3) then x: =x+6; else x: =0; writeln ('Результат=',x); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

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

Смотрите также:

Даны три числа, если первое число положительно, то два других уменьшить в два раза, в противном случае увеличить…

Помогите написать прогр. На языке паскаль

Помогите решить задачи, Плииз!

Составьте программу, которая выводит на экран различные приветствия в зависимости от введенного времени

Паскаль Дано четырехзначное натуральное число, найти первую и последнююцифру

Десятичное число 25 в некоторой системе счисления записывается как 121. Найдите основание этой системысчисления

Составить программу, которая выводит 10 одинаковых цифр

Сформировать последовательность, состоящую не менее чем из n цифр, такую, что каждое двухзначное число…

2. Написать программу…

27400

14822

Английский язык

14216

Биология

7369

720

Экономика

18829

8304

География

15850

Геометрия

5255

Информатика

11818

23332

15992

Литература

73118

Математика

8152

Обществознание

466

Правоведение

46271

Русский язык

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!

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

Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...