Question

Помогите пожалуйста.
Напишите эти 3 программы в Паскаль полностью
Даю 35 баллов

Answer 1

Создайте папку на диске C с названием Программирование

Задача №1

program a1;

var

 a, b, c, p, S: real;

 f_1: text;

begin

 readln(a, b, c);

 p := 0.5 * (a + b + c);

 S := sqrt(p * (p - a) * (p - b) * (p - c));

 assign(f_1,'C:\Программирование\s_1.txt');

 Rewrite(f_1);

 write(f_1, S);

 close(f_1);

end.

Задача №2

program a1;

var

 a, b: real;

 f_2: text;

begin

 randomize;

 a := random(101); //т.к. a := random(10); переменная a может равняться числам от 0 до 9, не 10!!!!

 b := random(101);

 assign(f_2,'C:\Программирование\s_2.txt');

 Rewrite(f_2);

 write(f_2, a, ' ',b);

 close(f_2);

end.

Задача №3

program a1;

var

 a, summa_cifr, proizvedenie: integer;

 f_3: text;

begin

 randomize;

 a := random(100); //т.к. a := random(10); переменная a может равняться числам от 0 до 9, не 10!!!!

 summa_cifr := (a div 10) + (a mod 10);

 proizvedenie := (a div 10) * (a mod 10);

 assign(f_3,'C:\Программирование\s_3.txt');

 Rewrite(f_3);

 writeln(f_3,'Исходное число ', a);

 writeln(f_3,'Сумма цифр ', summa_cifr);

 writeln(f_3,'Произведение цифр ', proizvedenie);

 writeln(f_3,'Перестановка мест ', a mod 10, a div 10);

 close(f_3);

end.

Подробнее - на Znanija.com - https://znanija.com/task/31482774#readmore