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
1)(48 *1024 *8) : (64*64*8) = 393216 : 32768 = 12 стр
48 Кбайт = 48*1024*8 = 393 216 бит
64 стр * 64 симв = 4096 симв на 1 стр
2) Емеля? :) Вторая буква - согл, последняя - гласная
Это высказывание равносильно такому:
((первая буква согласная) и (последняя буква согласная)) ИЛИ
((первая буква гласная) и (вторая буква гласная)).
Подходят слова 1. ааратат и 5. сравнением
Var
N:integer;
X,S:real;
Begin
S:=0;
Write('N = ');
Read(N);
Write('X = ');
Read(X);
For N:= 1 to N do
S:=S+power(X,N);
Write('S = ',S)
End.