Ketogenic accelerator utilization of ketogenic accelerator is basic as it has cases which can be overwhelmed by typical water for the most part it is referenced that admission of two cases are sufficient for multi day, one toward the beginning of the day prior to the morning meal and other is in the night prior to the supper. for definite guidelines, you can pursue the means referenced on the external name of ketogenic accelerator.to get more info visit here:
начну с мэйн
это основная праграма для запуска всего остального
инт ай и джи это целые числа которые ты используешь дальше
принт ф это выходит сообщение где тебе пишется введите число целое
скан ф вывод сообщения с тем что ты написал
фор две строки это выполнения операции с цифрами она прибавляет по 1 лимиты там описаны от 7 до 10 и от 2 до 11
принт ф опять вывод того что получилось далее переходит на следуюшию строку и снова переход
гетч это оставление окна до тех пор пока ты не нажмешь кнопку
procedure PerAndPlo(var s,p:real;a,b,c:real);
Var
pp:real;
begin
p:=a+b+c;
pp:=p/2;
s:=sqrt(pp*(pp-a)*(pp-b)*(pp-c));
end;
Var
a1,b1,c1,p1,s1,a2,b2,c2,p2,s2:real;
begin
Writeln('Введите длины сторон первого треугольника:');
readln(a1,b1,c1);
Writeln('Введите длины сторон второго треугольника:');
readln(a2,b2,c2);
PerAndPlo(s1,p1,a1,b1,c1);
PerAndPlo(s2,p2,a2,b2,c2);
Writeln('Сумма периметров:',(p1+p2));
Writeln('Сумма площадей:',(s1+s2));
end.
Пример ввода:
1
2
3
4
5
6
Пример вывода:
Сумма периметров:21
Сумма площадей:9.92156741649221