<em>Создайте папку на диске </em><em>C</em><em> с названием </em><em>Программирование</em>
<h2><em>
Задача №1</em></h2>
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.
<h2><em>
Задача №2</em></h2>
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.
<h2><em>
Задача №3</em></h2>
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 - znanija.com/task/31482774#readmore
