Регистрация
edgarotlichnik55
10.05.2020 09:12
Информатика
Есть ответ 👍

Напишите программу, которая в последовательности целых чисел определяет количество четных чисел, кратных 3. программа получает на вход целые числа. количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0-признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введенные числа по модулю не превышают 30000. программа должна вывести одно число: количество четных чисел, кратных 3.

236
280
Посмотреть ответы 2

Ответы на вопрос:

Марьяша16
Марьяша16
4,7(91 оценок)
Const n=1000; var i, k, count: integer; a: array[1..n] of integer; begin writeln ('vvedite chisla'); for i: =1 to n do begin k: =k+1; readln(a[k]); if a[k]=0 then break end; for i: =1 to k-1 do if a[k] mod 3 =0 then count: =count+1; writeln('кол-во чисел, кратных трем: ', count); end.
MaxineCaulfield2003
MaxineCaulfield2003
4,5(5 оценок)
Первые 3 нуля впереди отбрасываем, получаем 10110110011 (2сс) 1шаг. расставим степени справа налево над каждой цифрой начиная с нуля.2шаг. представим это число в  виде суммы произведений каждой цифры на 2 в той степени,  которая стоит над цифрой 1*2^10+0*2^9+1*2^8+1*2^7+ 0*2^6+1*2^5+1*2^4+0*2^3+0*2^2+1*2^1+1*2^0=1024+256+128+32+16+2+1= 1459(10cc)

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