Var a,b: array[0..19] of Integer;
i: Integer;
begin
for i:=0 to 19 do
begin
a[i]:=random(5)+1;
b[i]:=random(5)+1;
end;
for i:=0 to 19 do
begin
if a[i]=b[i] then writeln('Номер: ',i,', значение: ',a[i]);
end;
end.
Var
k: integer;
a, s: real;
begin
write('Начальная стоимость: ');
readln(a);
write('Число проданных газет: ');
readln(k);
if k <= 50 then s := k * a
else
begin
s := 50 * a;
s := s + (k - 50) * a * 1.2;
end;
writeln('Выручка составила ', s, ' руб.');
end.
1 - истина, 0 - ложь.
not( 0 ) or not( 1 ) and ( 1 )
1 or 0 and 1
1 or 1
сначала выполняются действия в скобках,затем логические операции not,затем and и в конце or.
Ответ: это выражение истинно.
14-2-7==5-медвежат
волчат=2 лисят=7
медвежат=5