Составьте программу для вычисления площади треугольника со сторонами а в с

221

463

Посмотреть ответы 2

Ответы на вопрос:

Artemov9Artem

Информатика

4,4(16 оценок)

var S,p,a,b,c: real;

begin

writeln('Введите a');

readln(a);

writeln('Введите b');

readln(b);

writeln('Введите c');

readln(c);

p:=(a+b+c)/2;

S:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Площадь равна ',S);

end.

nikita54wwe

Информатика

4,4(35 оценок)

Const cyr=['а'..'я','ё','ё']; lat=['a'..'z']; dig=['0'..'9']; var s,sc,sl,sd,so: string; i: integer; begin writeln('введите произвольную строку символов'); readln(s); sc: =''; sl: =''; sd: =''; so: =''; for i: =1 to length(s) do if s[i] in cyr then sc: =sc+s[i] else if s[i] in lat then sl: =sl+s[i] else if s[i] in dig then sd: =sd+s[i] else so: =so+s[i]; writeln('кириллица: ',sc); writeln('латиница : ',sl); writeln('цифры : ',sd); writeln('прочее : ',so) end. тестовое решение: введите произвольную строку символов запишем следующее выражение: y=5*sin(x)/(3.5*x+sqr(x); (язык pascal) кириллица: запишемследующеевыражениеязык латиница : ysinxxsqrxpascal цифры : 535 прочее : : =*()/(.*+(); ( ) примечание: поскольку в не сказано, что требуется записать все использованные символы только по одному разу, они повторяются.