Var a,b,c,p,S:real;
begin
writeln('Введите A: ');readln(a);
writeln('Введите B: ');readln(b);
writeln('Введите C: ');readln(c);
if (a+b>c) and (b+c>a) and (a+c>b) and (a>0) and (b>0) and (c>0) then
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('S = ',s)
end
else
writeln('Стороны треугольникавведены неверно!');
end.
Часть:процессор, память, монитор
Отдельные устройства:мышь, колонки, сканер, принтер, микрофон
1 уровень - country, family
2 уровень - syster, brother
3 уровень - нет
\family\mother.txt
\family\father.txt
\family\syster\mary.txt
\family\syster\kate.txt
\family\brother\peter.txt
\family\brother\robert.txt
\family\brother\mikle.txt
Ответ:
19263
19563
19863
Объяснение:
Число делится на 3, если сумма всех его цифр делится на 3.
1+9+6+3=19
3*i > 19 ⇒ i>19/3, i ∈ Z ⇒ 10 > i > 6 ⇒ i ∈ {7;8;9}
3*7-19=2
3*8-19=5
3*9-19=8