1. Информатика
  2. Дано натупальное число

Дано натупальное число n.определить кратно ли оно 3.нужно в паскале составить

guiuhui guiuhui    2   04.10.2019 16:20    3

Ответы
misakimei1306 misakimei1306  09.10.2020 19:59

var

 n: integer;

begin

 write('Введите n: ');

 read(n);

 if (n mod 3 = 0) then writeln('Число n кратно 3')

 else writeln('Число n не кратно 3');

 

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
DDddd532222 DDddd532222  27.05.2021 17:38
Сколько времени нужно чтобы передать 128 МБ информации со скоростью 32 Гб в секунду. помагит ​...
nenezkivazak nenezkivazak  27.05.2021 17:38
В каких случаях для описания объектов используют таблицы? 1) когда очень много объектов 2) когда мало объектов 3) когда у объекта одинаковый набор свойств. 4) когда...
akaspiyskaya akaspiyskaya  27.05.2021 17:39
Решить в Python Напишите процедуру, которая выводит на экран запись числа, меньшего, чем 216 = 65536, в виде 4-х знаков в шестнадцатеричной системе счисления...
LLarь LLarь  27.05.2021 17:48
Решить в Python Напишите процедуру, которая выводит на экран запись числа, меньшего, чем 810, в виде 10 знаков в восьмеричной системе счисления...
milana23456789 milana23456789  27.05.2021 17:51
Найти среднее арифметическое всех 3х значных чисел написать программу...
khludenev99 khludenev99  19.11.2020 11:16
Установите соответствие. * Чувственное познание Абстрактное мышление Ощущение вкуса земляники Открытие физического закона Восхищение красотой природы Планирование...
alisalis290 alisalis290  13.12.2020 17:08
Задание по Python:Дано слово. З’ясуйте, чи слово починається і закінчується на одну і ту ж букву? Регістр літер не враховувати....
AgumiChan AgumiChan  13.12.2020 17:07
Определите число которое будет напечатано в результате выполнения программы var n,s: integer; begin n:=0; s:=0; while s =425 do begin s:=s+10 n:=n+2 end( write(n)...
Evelina300606 Evelina300606  13.02.2021 23:29
За один ход игрок может добавить в одну из куч (по своему выбору) один камень или увеличить количество камней в куче в два раза. Игра завершается в тот момент, когда...
Enot811 Enot811  13.02.2021 23:28
Преобразуйте числа двоичной основы в десятичное и проверьте, снова преобразовав полученное десятичное число в двоичное. 1111000 1010111 1000000...

Популярные вопросы