Ввести три числа найти их разность и среднее арифметическое.( написать программу в паскаль)

229

394

Посмотреть ответы 2

Ответы на вопрос:

alyonabursina

Информатика

4,5(71 оценок)

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); minus: =a-b-c; writeln(a,'-',b,'-',c,'=',minus); 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.