Определите, имеется ли среди заданных целых чисел a, b, c хотя бы одно чётное.

122

395

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

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

serega5152

Информатика

4,6(33 оценок)

var a,b,c,count: integer;

begin writeln ('введите любые три числа '); readln(a); readln(b); readln(c); count: =0; if a mod 2=0 then inc(count); if b mod 2=0 then inc(count); if c mod 2=0 then inc(count); if count> 0 then writeln ('среди данных чисел есть ',count,' четн.') else writeln ('среди данных чисел четных нету'); end.

Арнэлла1

Информатика

4,5(96 оценок)

1) "в алфавитной цепочке эта буква идёт позже буквы ф" : х; ц; ч; ш; щ; ъ; ы; ь; э; ю; я. 2) "в алфавитной цепочке следующая буква после этой буквы - гласная" : д; е; з; н; т; ъ; ь; э; ю.