Привет.
Ответ вложен ниже. Пиши, если будут вопросы
Program n_1;
Var a, b, c, S, n: Integer;
Var q:Real;
Begin
Writeln('' Введите первое число'');
Readln(a) ;
Writeln('' Введите второе число'');
Readln(b) ;
Writeln('' Введите третье число'');
Readln(c) ;
S:=a+b+c;
n:=a*b*c;
q:=S/3;
Writeln(S) ;
Writeln(n) ;
Writeln(q) ;
end.
Var
s:String;
i:Integer;
Begin
Read(s);
for i:=1 to length(s) do
begin
if (i mod 2=0) then Delete(s,i,1);
end;
Writeln(s);
end.
Вариант с полным перебором. Решение в прикрепленном файле.
Входные данные:
4 63 4 1 34 1 3 22 3 4 31 2 3 41 3 2 42 1 4 3Выходные данные:
2 3 4 1