Блок-схема и программа - в прилагаемых файлах
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var
a,b,c,sum,p:integer;
sr:real;
begin clrscr;
write('a='); read(a);
write('b='); read(b);
write('c='); read(c);
sum:=a+b+c;
writeln(a,'+',b,'+',c,'=',sum);
p:=a*b*c;
writeln(a,'*',b,'*',c,'=',p);
sr:=sum/3;
writeln('sredn./arifm.=',sr:2:3);
readkey;
end.
Program n_1;
const pi=3.14;
var r, c, s: real;
begin
writeln('Вычесление длины окружности и площади круга');
write('Введение r>>');
readln(r);
c:=2*pi*r;
s:=pi*r*r;
writeln ('с=', c: 6:4);
writeln ('s=', s: 6:4)
end.
<u>Были исправлены ошибки в операторах </u>
<span>var r, c, s, real:
и
</span><span>writeln ('с=', с: 6:4);</span>
Перечислены расширения графических файлов.