Войти Регистрация Спроси ai-bota

Ввели число, выясните , делится ли оно нацело на 3?

Ответ:

MrNeik1

05.10.2020 17:00

Program n1;
var a: integer;
begin
readln(a);
if a mod 3=0 then write('делится')
else write('не делится');
end.

0,0(0 оценок)

Популярные вопросы: Информатика

MrCaT2005

26.10.2021 07:23

Нужна ! составить программа для определения площади фигуры по информатике...

keke717

26.10.2021 07:23

Внекоторой стране автомобильный номер длиной 6 символов составляется из заглавных букв (всего используется 12 букв) и десятичных цифр в любом порядке. каждый символ кодируется...

lol1049

04.03.2023 17:07

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

Ехепхеп

03.11.2020 08:08

Подсчитайте,сколько байт в памяти занимает рисунок размером 20 на 20 пикселов,закодированный в режиме истинного цвета?...

Клеоок

17.06.2021 17:52

13 мб в байт 128 мб в гб 40960 байт в кб 25 кб в биты 512 кб в гб 81920 бит в кб...

СекретнаяДевушка

17.06.2021 17:52

Как решать двоичные системы на число 74...

hunateВадим2827854

17.06.2021 17:52

устройство вывода графической информации. 16 букв...

artichdok7p08ovo

02.12.2020 05:01

Сколько групп инструментов графического редактора можно выделить...

ninazaripova1

12.05.2020 23:42

вставить модальные глаголы по смыслу...

reshitov123

12.05.2020 23:42

Почему выдает (встречно until , а ожидалось ; ) Var a:array[1..50] of byte; n,p, i,k,m,j,x,y,z: integer; begin writeln( Введите количество элементов ); readln(p); repead; n:=4;...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку