Доклад по информатике на тему разбиение множества на подмножества

137

353

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

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

Matvei200322

Информатика

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

Program z1; var a,b,c,d,e: integer; begin writeln('введите числа: '); write('первое число (a): '); read(a); write('второе число(b): '); read(b); if (a mod 2=0) then c: =a; if (b mod 2=0) then d: =b; if (a mod 2=0) or (b mod 2=0) then writeln('среди введённых чисел присутствует чётное число') else writeln('среди введённых чисел нет чётных чисел'); if (c=a) then writeln('чётное число: ',c); if (d=b) then writeln('чётное число: ',d); end.