1. не (123<10) или не (123 четное)
не ложно или не ложно
истина или истина = правда
2. не (56<10) или не (56 четное)
истина или не истина = истина
3. не (9<10) или не (9 четное)
не истина или не лож
лож или истина = истина
4. не (8<10) или не (8 четное)
не истина или не истина
лож или лож = лож
ответ 4
если выполнение именно условий выше <em>и</em> левее
ответ а
Визуальность это не настоящая картина( информация) придуманная человеком
Var n, i: Integer;
<span> a, min: LongInt;
</span>Begin
<span> min := 30000;
</span><span> readln(n);
</span><span> for i := 1 to n do begin
</span><span> read(a);
</span><span> if (a mod 2=0) and (a < min) then min := a;
</span><span> end;
</span><span> writeln(min);
</span><span>End.</span>
Если числа небольшие и X в N степени умещается в longint, то можно в цикле от 1 до n умножать на x
var i,x,n:integer;
l:longint;
begin
readln(x,n);
l:=1;
for i:=1 to n do
l:=l*x;
write(l);
end.