Var
i,n:integer;
IsOdd,IsEven:boolean;
begin
IsOdd:=false; IsEven:=false;
Write('Введите три числа: ');
for i:=1 to 3 do
begin
Read(n);
if n<>0 then
if (n mod 2)=0 then IsEven:=True
else IsOdd:=True
end;
Write('Среди введенных чисел ');
if IsOdd then Write('есть нечетное')
else Write('нет нечетных');
if IsEven then Write(' и есть четное')
else Write('и нет четных')
end.
<em><u>Тестовое решение:</u></em>
Введите три числа: 5 8 3
Среди введенных чисел есть нечетное и есть четное
Естественные языки: Немецкий, Английский,Французкий.
Естественный язык --- язык созданый не целенаправленно, сделанный для общения людей
См скриншот
==================================
<span>K = int(input("K = "))
D = int(input("D = "))
T = <span>60
</span>for i in range(50,T+1):
----A = (K / (i + 8 )) + D
----print("A = (" + str(K) + " / "+ str(i) +" + 8))+ " +str(D) + " = "+ </span>str(round(A,4)))
Вставка -> фигуры
и выбираешь необходимую