1. Информатика
  2. Среди чисел a, b, c определить

Среди чисел a, b, c определить количество чисел кратных 3. , , написать программу для turbo pascal или просто алгоритм.

AquAlexa AquAlexa    3   03.06.2019 01:40    0

Ответы
pugovka2017 pugovka2017  03.07.2020 15:24
Var a,b,c,k,i:integer;
begin
k:=0;
read(a,b,c);
if a mod 3 = 0 then k:=k+1;
if b mod 3 = 0 then k:=k+1;
if c mod 3 = 0 then k:=k+1;
writeln(k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ПАПА1111111111 ПАПА1111111111  01.07.2020 19:01
Не могу решить задачу! с++...
Retmes1 Retmes1  25.06.2019 09:30
Даны текстовый файл и некоторое слово. напечатайте те строки файла, которые содержат данное слово. можете подробно рассказать о механизме поиска. только не надо интернета,...
знаниепуть знаниепуть  25.06.2019 09:30
=степень(a1; (a3-b2)) что это значит в экселе?...
reginailt reginailt  25.06.2019 09:30
Составить программу,которая запрашивает ввод трех значений температуры и проаеряет,есть ли среди них температура таяния льда?...
anonimno3 anonimno3  10.09.2020 08:46
Отметьте четыре точки так, чтобы при проведении прямой через кан ждые две о них на рисунке образовалось: 1) одна прямая 2) четырепрямых; 3) шесть прямых. Проведите эти прямые.​...
лика03072017 лика03072017  11.09.2020 09:48
Упрости выражение 276 Т - 127 Т + 14т 26 Z + 13z - 5z 42 x + 45 + 8 x + 45 204b + 30б+6б+56...
zhenyakudryash zhenyakudryash  11.09.2020 09:50
Теле -это 1)Общее название многих казахских племён2)Общее название горных племён 3)Общее название Монгольских племён 4) Общее название Тюрских племён 5) Общее название Арабских...
Dasha8999 Dasha8999  11.09.2020 09:50
Гидроксид натрия реагирует с1) HNO; 2) К,0 3)Cu(OH), 4)Na3PO4​...
toshakalashnik toshakalashnik  11.09.2020 09:50
Отметьте галочкой во втором столбце числа, являющиеся иррациональными, а галочкой в третьем столбце – действительные числа. ( )​...
Ananasabricos Ananasabricos  11.09.2020 09:48
Көп нүктенiң орнына жаңа сөздердi қой...

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