1. Информатика
  2. 1) Написать программу,

1) Написать программу, проверяющую, удовлетворяет ли введённое число следующему условию: больше 7 или делится на 3. Паскаль

irinavardanyan irinavardanyan    1   15.01.2021 21:27    3

Ответы
Эхэхэхэххэ Эхэхэхэххэ  15.01.2021 22:00

program z;

var

i : integer;

begin

Writeln('Введите число'); Readln(i);

if i mod 3 = 0

then

Writeln('Число делится на 3')

else

Writeln('Число не делится на 3');

readln;

end.

Объяснение:

я не знаю это правильно или нет

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
adilyaarslanov adilyaarslanov  15.03.2022 22:31
Дан список А=[5, 7, 10, 32, 54, 41]. Введите число k значение С. Необходимо вставить в список на позицию с индексом k, элемент равный С. Напечатать список....
danila9988p09k31 danila9988p09k31  15.03.2022 22:37
, На складе, имеющем размеры N на M и разбитом на N x M одинаковых блоков хранения передвигается робот. Вход на склад находится в верхнем левом углу склада, а выход-...
наталья763 наталья763  15.03.2022 22:40
Для фрагмента программы на языке Pascal: k:=5; j:=1; While (A[j] В качестве элементов массива введены числа 1,3,7,2,10,8,6. Какое значение примет j После исполнения...
blazer6 blazer6  15.03.2022 22:55
Напишите код который вводит значение массива А с клавиатуры и печатает полученный массив...
Kam54 Kam54  04.05.2020 13:01
Дана строка оценок учащегося за 10 уроков Информатики. Определить получал ученик оценку «» в этой четверти, и если получал, то сколько раз. Удалите здесь содержащий...
ArinaKappa ArinaKappa  04.05.2020 13:01
Сколько будет FPS в играх (CS:GO, PUBG Lite и т.д) у компьютера с характеристиками - Intel G840 2.8Ghz, 4gb ddr3, sata 500Gb....
DARO100 DARO100  04.05.2020 13:01
Для зміни ширини форми потрібно вибрати властивість left , Width, Top,Height...
remixzx60 remixzx60  21.09.2019 20:20
Даны 2 3-х значных числа, если они оба чётные, то найти их сумму, если нет то найти сумму их цифр....
pogosanitka2345 pogosanitka2345  26.08.2019 09:50
Даны координаты левой верхней и правой нижней вершин квадрата. найти координаты точки пересечения диагоналей квадрата....
2005jan05 2005jan05  24.08.2019 21:20
Больному прописано лекарство которое нужно пить по одной таблетке 4 раза в день в течение 32 дней в одной упаковке 10 таблеток лекарства. какого наименьшего количества...

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