1. <span>(число <75) И НЕ (число чётное)
46: </span>(46<75) И НЕ (46 чётное) ⇒ Истина И Ложь ⇒ Ложь
53: (53<75) И НЕ (53 чётное) ⇒ Истина И Истина ⇒ Истина
80: (80<75) И НЕ (80 чётное) ⇒ Ложь И Ложь ⇒ Ложь
99: (99<75) И НЕ (99 чётное) ⇒ Ложь И Истина ⇒ Ложь
Ответ: <span>2) 53
2. </span><span>НЕ (Первая буква согласная) ИЛИ НЕ (Последняя буква гласная)
Пимен: </span>НЕ ("П" согласная) ИЛИ НЕ ("н" гласная) ⇒ Ложь ИЛИ Истина ⇒ Истина<span>
Кристина: </span>НЕ ("К" согласная) ИЛИ НЕ ("а" гласная) ⇒ Ложь ИЛИ Ложь ⇒ Ложь<span>
Ирина: </span>НЕ ("И" согласная) ИЛИ НЕ ("а" гласная) ⇒ Истина ИЛИ Ложь ⇒ Истина<span>
Александр: </span>НЕ ("А" согласная) ИЛИ НЕ ("р" гласная) ⇒ Истина ИЛИ Истина ⇒ Истина
Ответ: <span>2) Кристина
3. </span><span>НЕ (число > 30) ИЛИ (число нечётное)
28: </span>НЕ (28 > 30) ИЛИ (28 нечётное) ⇒ Истина ИЛИ Ложь ⇒ Истина<span>
34: </span>НЕ (34 > 30) ИЛИ (34 нечётное) ⇒ Ложь ИЛИ Ложь ⇒ Ложь<span>
17: </span>НЕ (17 > 30) ИЛИ (17 нечётное) ⇒ Истина ИЛИ Истина ⇒ Истина<span>
45: </span>НЕ (45 > 30) ИЛИ (45 нечётное) ⇒ Ложь ИЛИ Истина ⇒ Истина
Ответ: 2) 34
uses crt;
var a:array[1..100] of real;
i,n,ind:integer; min,min2:real;
begin
clrscr;
write('n='); read(n);
writeln('massiv:');
for i:=1 to n do
read(a[i]);
min:=a[1];
min2:=a[1];
for i:=1 to n do
begin
if a[i]<min then
begin
min:=a[i];
ind:=i;
end;
end;
for i:=1 to n do
begin
if (i<>ind) then if (a[i]<min2) then min2:=a[i];
end;
write(min,' ',min2);
end.
По всей видимости, коммуникативные системы, используемые живыми существами, почти универсальны. Для размножения многие растения привлекают внимание животных-опылителей (особенно насекомых) при помощи ярких цветов и приятных запахов. Когда размножение уже произошло, растения обращаются к животным, которые распространяют их семена. Чтобы привлечь их внимание, растения предлагают яркие съедобные плоды, которые животные съедают. Семена при этом проходят через их пищеварительную систему.
Var
A:integer;
P:real;
Begin
P:=1;
For A:= 100 to 620 do
if A mod 23 = 0 then P:=P*A;
WriteLn('P = ',P);
End.
Результат работы программы:
P = 1.5255279798308E+55
Var
A:integer;
P:real;
Begin
P:=1;
For A:= 11 downto 6 do
P:=P*A;
WriteLn('P = ',P);
End.
Результат работы программы:
P = 332640
Program vasil ;
var n , m : integer ;
begin
write ( 'vvedi chislo bochek N=' ) ;
readln ( n ) ;
m := n mod 10 ;
if ( m = 1 and n <> 11 ) then writeln ( n , ' bochka' )
else if (m <= 4 and n <> 12 and n <> 13 and n <> 14 and m <> 0) then writeln ( n , ' bochki' )
else writeln ( n , ' bochek' ) ;
end.
Так, наверное. Если будет косяк, то пиши, или сам сообрази где ошибка. Сейчас нет под рукой компилятора, не могу оттестировать.