Дано 2 числа

@Freezy32rus · Регистрация: 06.10.2013

Author24 — интернет-сервис помощи студентам

Дано два числа. Вычислить их сумму, разность, площадь, частное, среднее арифметическое и среднее геометрическое.

@Kam_1995 · 06.10.2013, 17:52

Pascal

uses crt;
var  x,y,s,r,p: integer;
     ch,sa,sg: real;
 
BEGIN
clrscr;
write('Vvedite 1-oe chislo: ');
readln(x);
write('Vvedite 2-oe chislo: ');
readln(y);
s:=x+y;
r:=x-y;
p:=x*y;
ch:=x/y;
sa:=(x+y)/2;
sg:=sqrt(x*y);
writeln('Summa: ',s);
writeln('Raznost: ',r);
writeln('Ploshad: ',p);
writeln('Chastnoye: ',ch:0:2);
writeln('Sredneye arifmeticheskoye: ',sa:0:2);
writeln('Sredneye geometricheskoye: ',sg:0:2);
repeat until keypressed;
END.

@Freezy32rus · 06.10.2013, 18:47 **[ТС]**

Спасибо большое!!!

@Freezy32rus 0 / 0 / 0 Регистрация: 06.10.2013 Сообщений: 32
		1
	Дано 2 числа 06.10.2013, 17:24. Показов 1090. Ответов 2 Метки нет (Все метки) Дано два числа. Вычислить их сумму, разность, площадь, частное, среднее арифметическое и среднее геометрическое. 0

@Freezy32rus 0 / 0 / 0 Регистрация: 06.10.2013 Сообщений: 32
	06.10.2013, 18:47 [ТС]	3
	Спасибо большое!!! 0

Дано 2 числа

Решение