1.Определить значение высказывания ¬(3>2) или ((7<3) и (х>7)) если х=5 2.высказывание описано формулой f=(a+b) ^c постройте по логическому выражению логическую схему 3. Для какого числа x истинно выражение (х>4)&(х<7)&(х<6)
begin readln(n); for i: byte := 1 to n do begin readln(buf); if (buf > 0) then if (p2 = 0) then p2 := buf else p2 := p2 * buf else if (p1 = 0) then p1 := buf else p1 := p1 * buf; end;
writeln('P1 = ', p1, #13, 'P2 = ', p2);
if (abs(p1) > abs(p2)) then writeln('|', p1, '| > |', p2, '|') else if (abs(p1) < abs(p2)) then writeln('|', p1, '| < |', p2, '|') else writeln('|', p1, '| = |', p2, '|') end.
//Сделал Лугачев Кирилл //Специально для //Все данные вводятся с клавиатуры program Sravnenie; var a, b: integer; // Стороны 1-ого прямоугольника d, c: integer;// Стороны 2-ого прямоугольника S1, S2: integer; // Площадь buf: integer;// Если площадь 1-ого будет меньше 2-ого //поменяем местами,что бы избавиться от минуса razn: integer; // Разница 2-ух площадей
begin Write('Введите стороны 1-ого прямоугольника: '); Readln(a, b);
Write('Введите стороны 2-ого прямоугольника: '); Readln(d, c); S1 := a * b; //Площадь 1-ого S2 := d * c; //Площадь 2-ого if S1 < S2 then begin buf := S1; S1 := S2; S2 := buf; end; razn := S1 - S2; Writeln('Площадь 1-ого больше площади 2-ого в - ',razn, ' раз'); end.
p1, p2, buf: real;
n: byte;
begin
readln(n);
for i: byte := 1 to n do
begin
readln(buf);
if (buf > 0) then
if (p2 = 0) then
p2 := buf
else
p2 := p2 * buf
else
if (p1 = 0) then
p1 := buf
else
p1 := p1 * buf;
end;
writeln('P1 = ', p1, #13, 'P2 = ', p2);
if (abs(p1) > abs(p2)) then
writeln('|', p1, '| > |', p2, '|')
else
if (abs(p1) < abs(p2)) then
writeln('|', p1, '| < |', p2, '|')
else
writeln('|', p1, '| = |', p2, '|')
end.