Var
a,b,c:real;
begin
Read(a,b,c);
if (a=b) and (a=c) then Writeln('Треугольник равносторонний')
else Writeln('Треугольник не равносторонний')
end.
<u>Пример</u>
15 15.0 15.0000
Треугольник равносторонний
var
m,n,mx:integer;
begin
Read(m,n);
if m>0 then
if m>n then n:=m else m:=n
else begin m:=0; n:=0 end;
Writeln('m=',m,', n=',n)
end.
<u>Пример</u>
7 2
m=7, n=7
<span>Вчера решал 238 вышло, могу ошибаться..
</span>
1. Поздравительный текст, отличается оформлением с завитушками, наклонным рукописным шрифтом, назначение - красиво поздравить кого-то.
<span>2. Газетный текст, журнальный - содержит небольшого по размеру колонки, хорошо читабельный шрифт, назначение - донести как можно лучше информацию до человека, заинтересовать, занять.</span>
Var k,summa:integer;
begin
for k:= 15 to 90 do
if k mod 2 =0 then
summa:= summa + 2*k;
writeln(summa);
end.