Дано двузначное число Y. Кратно ли число Y 13?(pascal abc net, операторы ветвления)
Mysteryon
3
01.05.2020 23:03
0
Другие вопросы по теме Информатика
варвара176
26.01.2022 19:31
kimdana1
26.01.2022 19:44
Gaxling
26.01.2022 20:15
Diman4ik355
26.01.2022 20:20
ВеселыйР0джер
26.01.2022 20:56
farita1
26.01.2022 20:57
sfdfgdfgdfg
26.01.2022 21:01
Cornelia1313
26.01.2022 21:04
basgal67
26.01.2022 21:05
Популярные вопросы
- Существует ли у ресничных червей дыхательная и кровеносная система. строение...
2 - Древнейший астрономический инструмент, использовавшийся для определения высоты...
2 - Велосипедист проехал 3 намеченного маршрута .длина всего маршрута равна 32...
1 - Напишете 5-6 предложений чему меня научила повесть о петре и февронии...
2 - Решите уравнение : 8/13 = 2х/39 !...
3 - Велосипедист проехал по прямой дороге из одного поселка в другой и вернулся...
2 - 1какие меры необходимо предпринять чтобы обеспечить разведение костра и приготовление...
2 - Найти длину коридора с периметром 200 метров и шириной 7 метров...
1 - Form adjectives from the following geographical names. spain- australia- great...
1 - You ve got a letter from lucy, your british pen friend.she is asking about...
2
var y:integer;
begin
writeln('Введите число');
readln(y);
if y mod 13 = 0 then writeln('Число кратно')
else writeln('Число не кратно');
end.
Объяснение:
var
y:integer;
begin
readln(y);
if y mod 13 = 0
then Writeln('Да')
else Writeln('Нет');
end.