Регистрация
6451254Ника
03.05.2023 17:30
Информатика
Есть ответ 👍

Построить таблицу истинности логических элементов и схем.

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

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

Stepan0305
Stepan0305
4,5(81 оценок)
//pascal abc.net v3.0 сборка 1111 var   a,k,max: integer; begin a: =1; max: =-1000; k: =0;   while a< > 0 do   begin;     if not(odd(a)) then inc(k);     if max< a then max: =a;     readln(a);   end; writeln('max=',max,', not odd: ',k); end.

Популярно: Информатика