Найти сумму двузначных нечетных чисел. вывести сумму. а также выводить на экран сколько вводилось двузначных чисел и сколько из них было нечетных. то есть всего должно быть 3 вывода. !

Это только ответ на 1 вопрос. var a, i, n, b, sum: integer; begin sum: =0; readln(n); for i: =1 to n do begin readln(a); if (a> 9) and (a mod 2=0) then sum: =sum+a; writeln(sum); end; end.

print("This program takes three numbers and returns the sum.")

total = 0

for i in range(3):

x = int(input("Enter a number:"))

total = total + x

print("The total is:", total)

При считывании x стоит указать явное преобразование в int, иначе введенное число запишется в x как строка. Программа считает сумму введенных чисел, поэтому в total = total + i вместо i нужно указать x, иначе посчитается сумма чисел от 1 до 3. Если бы мы не преобразовали x к int, то программа выдала бы ошибку о невозможности складывания int и str (x был бы str). При выводе результата выводилось значение x, а нам нужно вывести сумму, т.е. total

На первый взгляд кавычки выглядят разными и не подходящими, возможно это такой шрифт. В первой строке в print использован курсив? В программе это не допустимо

var  

x, y: integer;

n: integer;

sum: integer;

mindif: integer;

f: text;

begin

   assign(f,'C:\27-A.txt');

   reset(f);

   readln(f, n);

   sum := 0;

   mindif := 20001;

   while not eof(f) do begin

       readln(f, x, y);

       if x > y then  

           sum := sum + x

       else  

           sum := sum + y;

       if (abs(x - y) < mindif) and (abs(x-y) mod 3 <> 0) then mindif := abs(x-y);

   end;

   if sum mod 3 <> 0 then

       writeln(sum)

   else

       writeln(sum - mindif);

end.

Объяснение: