Регистрация
Машуничка12
03.02.2021 04:04
Информатика
Есть ответ 👍

Постройте таблицу истиности в паскале : (a*b)→(⌐a*c)

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

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

CRaBFeed
CRaBFeed
4,4(66 оценок)
Значения в таблице принимают значения истина(true) и ложь(false). //pascal var a, b, c: boolean; begin write('      a          b          c    '); writeln('    a& b      ⌐a      ⌐a& c        f'); for a : = false to true do   for b : = false to true do       for c : = false to true do           writeln(a: 7, b: 7, c: 7,(a and b): 7, not(a): 7,           (not(a)and c): 7,(not(a and b)or(not(a) and c)): 7); end. 
gerakostya
gerakostya
4,5(24 оценок)
Var   i,n: integer;   s,t: real;   begin   write('n='); readln(n);   s: =0;   for i: =1 to n do begin       read(t);       s: =s+t*t       end;   writeln('сумма квадратов равна ',s) end. пример n=5 -23.1 42.6 146 0 0.12 сумма квадратов равна 23664.3844

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