1. Вводятся 3 числа вывести сумму нечетных введенных чисел2. Вводятся 3 числа найти и вывести среднее по значению число ​

1. Вводятся 3 числа вывести сумму нечетных введенных чисел:

Var

ro,ci,coun:integer;

BEGIN

readline(ro); readline((ci); readline((coun);

if a mod 2 <> 0 then

writeline('Первое нечётное')

else if ro mod 2 = 0 then

 writeline('Первое чётное');

 if b mod 2 <> 0 then

writeline('Второе нечётное')

else if ci mod 2 = 0 then

 writeline('Второе чётное');

 if coun mod 2 <> 0 then

writeline('Третье нечётное')

else if coun mod 2 = 0 then

 writeline('Третье чётное');

end.

Объяснение первого:

(writeline --> writeln (если ошибка), readline --> readln (если ошибка).

Изменить наименование переменных и дать им другое значение, тоже по желанию.

⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔

2. Вводятся 3 числа найти и вывести среднее по значению число:

program staring;

uses crt;

var a,b,c,d: integer;

rob: boolean;

BEGIN

clrscr;

rob:=true;

writeline('Введите первое число: ');

readline(a);

writeline('Введите второе число: ');

readline(b);

writeline('Введите третье число: ');

readline(c);

if ((b>a)and(a>c)) or ((c>a)and(a>b)) then d:=a

else

if ((a>b)and(b>c)) or ((c>b)and(b>a)) then d:=b

else

if ((a>c)and(c>b)) or ((b>c)and(c>a)) then d:=c;

if (a=b) or (b=c) or (a=c) then vyvod:=false;

if rob=true then writeline('Число посередине - ',(d))

Объяснение первого:

writeline --> writeln (если ошибка), readline --> readln (если ошибка).