Ответ на картинке,решали уже мы это
Можно воспользоваться функцией <span>UpCase</span> или сделать 33 if'а.
Франция- Париж, Чехия - Прага, Германия - Берлин, Испании - Мадрид, Португалии -Лиссабон
Program Summa;
Uses Crt;
var s,n,c:integer;
begin
clrscr;
write('Введите числа коннц ввода 0: ');
s:=0;c:=0;
repeat
readln(n);
c:=c+1;
if (n mod 2)=0 then
if ((n>=5)and (n<=25)) then s:=s+n;
until (n=0) or (c=1000) ;
write('Сумма ',c,' чётных чисел в диапазоне от 5 до 25:',s);
readkey;
end.
:D
<span>1й элемент реализует функцию A=
![\lnot(x\land y)](https://tex.z-dn.net/?f=%5Clnot%28x%5Cland+y%29)
,
2й - B=</span><span><span>
![\lnot z](https://tex.z-dn.net/?f=%5Clnot+z)
, 3й - F=
![\lnot(A \lor B)](https://tex.z-dn.net/?f=%5Clnot%28A+%5Clor+B%29)
Таблица истинности
x
y
z
A
B
F
</span><span>0
0
0
1
1
0
</span><span>0
0
1
1
0
0
</span><span>0
1
0
1
1
0
</span><span>0
1
1
1
0
0
</span><span>1
0
0
1
1
0
</span><span>1
0
1
1
0
0
</span><span>1
1
0
0
1
0
</span><span>1
1
1
0
0
1
</span></span>
Из таблицы видно, что F=
![x \land y \land z](https://tex.z-dn.net/?f=x+%5Cland+y+%5Cland+z)