Ответы
Ответ дал:
1
Я возьму прямоугольный треугольник, если уж вы не соизволили написать условие. S=1/2ab(высота на основание).
program my;varS,a,b:real;beginwriteln('задайте значения сторон a,b');readln(a,b);S:=1/2*a*b;writeln('S=',s);end.
program my;varS,a,b:real;beginwriteln('задайте значения сторон a,b');readln(a,b);S:=1/2*a*b;writeln('S=',s);end.
Почему-то тут без строчек... сейчас попробую отступить ЗДЕСЬ.
program my; var S,a,b:real; begin writeln('задайте значения сторон a,b');readln(a,b); S:=1/2*a*b; writeln('S=',s); end.
Похожие вопросы
1 год назад
1 год назад
6 лет назад
6 лет назад