Сначала выпишем все наборы значений, которые могут принимать высказывания (A и B). После по порядку приоритета выполняем действия. Т.к. присутствуют скобки, начинаем с них. Первым приоритетом обладает отрицание. Выполняем отрицание значений, т.е. меняем на противоположные. Затем идет конъюнкция. Она принимает значение "1" лишь в тех случаях, когда все высказывания истинны, т.е. имеют значение "1". Последнее действие - дизъюнкция. Она принимает значение "1" в тех случаях, когда истинно хотя бы одно из высказываний.

0 0

4 года назад

В паскаль создать массив который заполняется случайными числами и выводит процентное соотношение положительных и отрицательных ч

babai16

var i,p,o:integer;
a:array [1..30] of integer;

0 0

4 года назад

1.Нужно составить программу перевода градусов в интервале 15-30 шкалы Цельсия на градусы Фаренгейта. Формула преобразования F=C*

Сэм Нил [292]

Program Pr1;
uses crt;
var f,c:real;
begin
clrscr;
c:=15;
while c<=30 do begin
f:=c*1.8+32;
writeln(c,'-Цельсия; Фаренгейт - ',f);
c:=c+1;
end;
end.

Program Pr1;
uses crt;
var stroka:string;
i,v,x:integer;
Begin
clrscr;
readln(stroka);
x:=0;
v:=0;
for i:=1 to length(stroka) do begin
if stroka[i]<>' ' then v:=v+1;
if (stroka[i]='т') or (stroka[i]='Т') then x:=x+1;
end;
writeln('Количество букв- ',v,' Количество букв Т -',x);
end.

0 0

4 года назад