Даю 40 баллов!!! Помогите пожалуйста решить эти 3 задания в Паскаль. Пришлите пожалуйста...

0 голосов
30 просмотров

Даю 40 баллов!!! Помогите пожалуйста решить эти 3 задания в Паскаль. Пришлите пожалуйста готовые программы


image

Информатика (24 баллов) | 30 просмотров
Дан 1 ответ
0 голосов

var a, b, c, p: real;

begin

readln(a, b, c);

p:= (a + b + c) / 2;

writeln(sqrt(p * (p - a) * (p - b) * (p - c)));

end.

/////////////////////////////////

var num1, num2: real;

begin

randomize;

num1:= random(1, 100);

num2:= random(1, 100);

writeln(num1);

writeln(num2);

writeln(num1 + num2);

end.

/////////////////////////////////

var num: real;

begin

randomize;

num:= random(10, 99);

writeln((num div 10) + (num mod 10)); // Сумма

writeln((num div 10) * (num mod 10)); // Произведение

writeln((num div 10) + (num mod 10) * 10); // ~ab = ~ba

end.

(1.7k баллов)
0

Можно 3 задачу пожалуйста полностью написать