1-5
2-5
3-32
4-6
5-0
6-бесконечно
7-не исполниться
8-3
9-бесконечно
по моему так
1) ¬(¬A ^ B) ^ ¬C =( ¬(¬A)∨¬B)∧¬C = (A∨¬B)∧¬C
выражение эквивалентно выражению под цифрой 4)
<span>
2) Для того чтобы выражение было истинным надо чтобы истинными были каждое из выражений
</span><span>(Y < 5) и ((Y > 1) -> (Y > 5))
первое выражение истинно для всех указанных Y.
рассмотрим второе выражение: </span>((Y > 1) -> (Y > 5))
это выражение ложно только если (Y > 1) истинно, а (Y > 5) ложно
выражение (Y > 5) ложно для всех Y,
а выражение (Y > 1) истинно для Y = 2 , 3 , 4
Таким образом выражение ((Y > 1) -> (Y > 5)) истинно только для Y= 1
поэтому правильный ответ под номером 1)
Var a,s,p,i:integer;
begin
s:=0; p:=1;
writeln('Введите 5 чисел:');
for i:=1 to 5 do
begin
readln(a);
s:=s+a*a;
p:=p*a*a;
end;
writeln('s = ',s,' p = ',p);
end.
Пример:
<span>Введите 5 чисел:
2
4
3
1
5
s = 55 p = 14400</span>
Известны два расстояния: одно в километрах, другое—в футах(1 фут=0,45 м). Какое из расстояний меньше?
Program ss;
uses crt;
var
a,b,c,s,s1: integer;
Begin
clrscr;
Writeln('Введите расстояние в километрах:');
readln(a);
Writeln('Введите расстояние в футах');
readln(b);
writeln('Введите размер одного фута в метрах');
s:=a*1000;
s1:=c*b;