<em>Паскаль</em>
var a,b,c,S,p:real;
label e;
begin
e: a:=0;b:=0;c:=0;read (a,b,c);
if ((a+b) <= c) or ((a+c) <= b) or ((b+c) <= a) then
begin
writeln ('Такого треугольника не существует, введите стороны заново');
goto e;
end;
if ((a+b) > c) or ((a+c) > b) or ((b+c) > a) then
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln ('Площадь треугольника = ',S);
end;
end.
Program chik;
var a:array[1..1000]of integer;
var n,i:integer;
begin
read(n);
for i:=1 to n do
begin
read(a[i]);
end;
for i:=1 to n do
begin
if (i mod 2=0)then a[i]:=0;
end;
for i:=1 to n do
begin
write(a[i],' ');
end;
end.
Боря из Омска
Витя из Москвы
Гриша из Санкт-Петербурга
Егор из Кирова
Думаю так
Стив Джобс.
Стивен Джобс - основатель компании apple
Витя - х
Костя - y
3х = y
x = y - 18
находим y и х:
y=3y-54
<u>y=27</u>, значит
<u>x=27-18=9</u>
<u>Ответ: Костя решил 27 задач, Витя решил 9 задач</u>