Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var a, b, c, p, s : real;
begin
wtiteln('введите катет а-');
read(a);
wtiteln('введите катет b-');
read(b);
s: =(a*b)/2;
writeln('площадь треугольника =', s);
c: =sqrt(sqr(a)+sqr(b));
p: = a+ b + c;
writeln('периметр треугольника =', p);
end.
у меня получилось, что первое число 954, второе 459, а третье 495. т.е. получился пример : 954-459=495
20 - 25 = -5
-5 в десятичной системе
1)
s : = 0;
for i : = 1 to k do
if i mod 2 < > 0 then
s: = s + i;
end;
2)
for i : = 5 to 55 do
writeln(i);
3)
s : = 1;
for i : = n to m do
s: = s * i;
4)
for i : = 10 to 15 do
обрамления там везде одинаковые
Популярные вопросы