Найти площадь прямоугольного треугольника, если даны длины его катетов a и b.

Program Anadra;

uses crt;

var a,b: integer;

S: real;

begin

writeln(‘Введите значения двух катетов’);

readln(a);

readln(b);

S:=(a*b)*0.5;

writeln(‘Площадь треугольника равна ‘,S);

end.

Читать далее →

Даны два числа. Найти среднее арифметическое их квадратов и среднее арифметическое их модулей. 

Program Anadra;

uses crt;

var a,b,c,d,e,f: integer;

x,y: real;

begin

writeln(‘Введите два числа’);

readln(a);

readln(b);

с:=sqr(a);

d:=sqr(b);

x:=(c+d)/2;

e:=abs(a);

f:=abs(b);

y:=(e+f)/2;

writeln(‘Среднее арифметическое их квадратов ‘,x);

writeln(‘среднее арифметическое их модулей ‘,y);

end.

Разбор решения:

Читать далее →

Даны два ненулевых числа. Найти их сумму, разность, произведение и частное.

Решение:

Program Anadra;

uses crt;

var a,b,c,d,e: integer;

f: real;

begin

writeln(‘Введите два числа’);

readln(a);

readln(b);

c:=a+b;

d:=a-b;

e:=a*b;

f:=a/b;

writeln(‘Сумма чисел ‘, c);

writeln(‘Разность ‘,d);

writeln(‘Произведение ‘,e);

writeln(‘Частное ‘,f);

end.

Разбор решения:  

Читать далее →