Алгоритм разветвления. составить алгоритм, который проверяет, делится ли на три целое число, введенное с клавиатуры (возможно использование оператора mod – остаток от деления двух чисел).
temamojet1997
3
03.03.2019 07:00
5
Другие вопросы по теме Информатика
vadimrusackeviVadim
10.12.2019 17:25
вика3878
10.12.2019 17:25
den53499
10.12.2019 17:27
anast1sava
10.12.2019 17:29
KARYCY798
13.12.2021 20:30
abrashevamarin
13.12.2021 20:31
maricn2102
13.12.2021 20:31
ДианаКараханова77
13.12.2021 20:36
arturkill12309
13.12.2021 20:38
Популярные вопросы
- Обозначая корни и чередующиеся гласные. загорел-загар,зарево-зорька, поклон-кланяться,творчество-твари,касаться-коснуться,блестеть-блистать,стелить-застилать,считать-счет-сочту...
3 - Имеются четыре лампы по 40 вт , три лампы по 100 вт и электрический чайник мощностью...
1 - Какие написать темы для школьной газеты, и как её назвать?...
1 - 3. выписать в три столбика: 1)слова с непроверяемыми безударными гласными. 2)слова,...
2 - Два мальчика выбежали из двух домов навстречу друг другу и встретились через 4...
3 - Ему чапаевцу видны в боях окрепшие сына. расставить знаки препинания!...
3 - Собрать из букв слово вот буквы этэатсфа...
1 - За 2 минуты оля м катя это же расстояние за 4 минуты скорость какой девочки была...
3 - На три комбинезона пошло 17 м ткани . сколько метров ткани нужно чтобы сшить девять...
3 - Что такое большая общность людей объединенных культурными и религиозными традициями...
2
(если сумма цифр числа делится на 3, то число делится на 3 нацело)
var a, s: integer;
begin
s:=0;
writeln ('Введите число');
while a<> 0 do
begin
a:= a mod 10
S:=s+a;
end;
if S mod 3 = 0 then writeln ('делится') else
writeln ('не делится');
end.