Консультация № 107973
04.11.2007, 15:02
0.00 руб.
0 1 1
Даны натуральные числа n, a 1...an. Определить количество членов ak последовательности a1,...,an: кратных 3 и не кратных 5

Приложение:
Решить в Pascal 7.0 c помощью циклов и массивов

Обсуждение

Неизвестный
04.11.2007, 16:11
общий
это ответ
Здравствуйте, Николаев Денис!
Решение в приложении!

Приложение:
program Koli4estvo;const N_Max = 20;var A : Array[1..N_Max] of integer; i, N, kol : integer;begin {ввод исходных данных} WriteLn( ‘Введите количесвто элементов последовательности N<‘, N_Max ); ReadLn( N ); WriteLn( ‘Введите ‘, N, ‘ элементов:‘ ); for i := 1 to N do begin Write( ‘A[‘, i, ‘]=‘ ); ReadLn( A[i] ); end; {подсчет количества элементов, кратных 3 и не кратных 5} kol := 0; for i := 1 to N do if ( A[i] mod 3 = 0 ) and ( A[i] mod 5 <> 0 ) then kol := kol + 1; {вывод результата} if kol = 0 then WriteLn( ‘Нет элементов, кратных 3 и не кратных 5‘ ) else WriteLn( ‘Количество элементов, кратных 3 и не кратных 5 равно ‘, kol); ReadLn;end.
Форма ответа