добрый вечер, прошу кто шарит в Pascal ABC помогите. просто не получается и все.
Answers & Comments
anabahmat
6.) Program z1; Var a,b,c,d,e,f:integer; otv:real; begin Readln(a,b,c,d,e,f); otv:=a+b+c+d+e+f; otv:=otv/6; Writeln(otv:7:3) end. 7.) Program z1; Var a:integer; begin Readln(a); Writeln(a+a*0.1) end.
Должно работать, но лучше набрать и проверить работает ли. Надеюсь помогла)
Answers & Comments
Var
a,b,c,d,e,f:integer;
otv:real;
begin
Readln(a,b,c,d,e,f);
otv:=a+b+c+d+e+f;
otv:=otv/6;
Writeln(otv:7:3)
end.
7.) Program z1;
Var
a:integer;
begin
Readln(a);
Writeln(a+a*0.1)
end.
Должно работать, но лучше набрать и проверить работает ли. Надеюсь помогла)