Объяснить принцип работ следующих программ (записать, что происходит в каждой сточке программы): 1)
program n22;
var a,b:integer;
begin
writeln('введите целое число a');
readln(a);
writeln('введите целое число b');
readln(b);
writeln ('a mod b = ',a mod b);
writeln ('a div b = ',a div b);
end.

2)
program n_s;
var a, b, c: integer;
p, s: real;
begin
writeln('Вычисление площади треугольника по трем сторонам');
write('введите значения a, b, c');
readln(a, b, c);
p:= (a+b+c)/2;
s:= sqrt(p*(p-a)*(p-b)*(p-c));
writeln ('s=', s:2:1);
end.

Енотuк    1   13.05.2021 21:53    5