Если он в браузере,попробуй cntrl+shift+t
Var
S:real;
A:integer;
Begin
S:=0;
For A:= 11 to 99 do
if A mod 2 <> 0 then S:=S+sqrt(A);
WriteLn('S = ',S)
End.
Var a, sum, i : integer; s, x : string; sa : real;
begin sum:=0; readln(s); for i:=1 to length(s) do begin x:=copy(s, i, 1); val(x, a); sum:=sum+a; end; sa:=sum/(length(s)); writeln('сумма: ', sum); writeln('среднее арифметическое: ', sa:4:2);end.
Для передачи информации между компьютерами включеных в одну сеть
!!!!!!!!!!!!!!!!!!!!!!! Не очень сложное задание, это как математика 5 класса, просто место этих галочек попробуй подставить + и *. Удачи!