Информатика, опубликовано 2018-08-22 23:26:33 by Гость
Ввести три числа найти их разность и среднее арифметическое.( написать программу в паскаль)
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на