1) uses crt;
var a,s:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
for i:=1 to n do begin
s:=s*a;
end;
writeln('Число ',a,' в степени ',n,' равно ',s);
end.
2)uses crt;
var a,s:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
for i:=1 to n do begin
s:=s*a;
writeln(a,' в степени ',i,' равно ',s);
end;
end.
3)uses crt;
var a,s,p:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
p:=1;
write('1 + ');
for i:=1 to n do begin
s:=s*a;
p:=p+s;
if i<n then write(s,' + ');
if i=n then write(s,' = ');
end;
writeln(p);
end.
a) 1
б) 1
в) 1
г) 0
Объяснение:
(х < 4) & (х > 2) v ¬(x > 2)
a) x = 1
(1 < 4) & (1 > 2) v ¬(1 > 2) = 1 & 0 v ¬0 = 0 v ¬0 = 0 v 1 = 1
б) х = 2
(2 < 4) & (2 > 2) v ¬(2 > 2) = 1 & 0 v ¬0 = 0 v ¬0 = 0 v 1 = 1
в) х = 3
(3 < 4) & (3 > 2) v ¬(3 > 2) = 1 & 1 v ¬1 = 1 v ¬1 = 1 v 0 = 1
г) х = 4
(4 < 4) & (4 > 2) v ¬(4 > 2) = 0 & 1 v ¬1 = 0 v ¬1 = 0 v 0 = 0
¬ (НЕ) - обратно исходному высказыванию
& (И) - истинно, когда истины оба исходных высказывания
∨ (ИЛИ) - ложно, когда ложны оба исходных высказывания