Паскаль. найти среднее арифметическое трех целояисленных переменных.

SuperChelovek SuperChelovek    1   23.06.2019 18:30    0

Ответы
133fdsf7za 133fdsf7za  02.10.2020 09:32
Var
S,i,a:integer;
begin
   for i:=1 to 3 do
      begin
         readln(a);
         s:=s+a;
      end;
writeln('Srednee = ',s/3);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика