Напишите программу, которая в последовательности - вопрос №5163927 от zologiru 11.02.2023 23:06

Question

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

zologiru · Answer

Var  a,c:integer;BeginWriteln( Вводите числа (через Enter) );  repeat    Readln(a);    if (a 0) and ((a mod 10) = 0) and ((a mod 4) = 0) then inc(c);  until a=0;  Write( Количество чисел кратных 4 и оканчивающихся на 0 равно ,c);End.    ...