Савиниан 27 ноября 2019 в 12:14
Напишите программу, которая впоследовательности целых чиселопределяет количество четных чисел,кратных шести. Программа получает на вход целые числа, количество введенныхчисел неизвестно, последовательностьчисел заканчивается числом ноль (ноль – признак окончания ввода, не входит впоследовательность) . Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30000.
Напишите программу, которая впоследовательности целых чиселопределяет количество четных чисел,кратных шести. Программа получает на вход целые числа, количество введенныхчисел неизвестно, последовательностьчисел заканчивается числом ноль (ноль – признак окончания ввода, не входит впоследовательность) . Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30000.
Const N = 1000;var a: array [1..N] of integer;k,i,C:integer;beginreadln (C);k:=0;for i:=1 to C do readln (a[i]);for i:= 1 to C do begin while a[i]lt;gt;0 do if (a[i] mod 2 = 0) and (a[i] mod 6 = 0) then k:=k+1 end;writeln (k); end.
Компьютеры и вычисления
365
0
Для комментирования необходимо зарегистрироваться на сайте