1)((1∧1)∨0)∧(0∨1) = (1∨0)∧(0∨1) = 1∧1 = 1
2)
*если не отображается, смотри вложение*
Var a,b,c,d,S:integer;
begin
readln(d);
S:=0;
a:=7;
b:=3;
c:=a+b;
if c>d then
S:=c-d
else
S:=d-c;
writeln(S);
end.
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.
2)
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.
Тест к программе
a= -1 b=2 c=3 s=1.5 (промежуточные m1 m2 m3 сами просчитаете и проверьте)
a=4 b= - 5 c=0 s = 8