Program n1;
var a: integer;
begin
readln(a);
case a of
1..89: writeln('Остроугольный');
90: writeln('Прямоугольный');
91..179: writeln('Тупоугольный');
else writeln('некорректный ввод');
end;
end.
Program fofgogjoj;
var
n:integer;
a,s:real;
begin
repeat
Writeln('Введите вещественное число a');
Read(a);
until a>1;
s:=0;
n:=1;
while s<a-1/n do
begin
s:=s+1/n;
Write(n:4);
n:=n+1;
end;
Writeln;
Writeln('s=',s:0:4);
<span>end.
Не советую печатать число большее 10 xD</span>
256*128=32768 точек
32Кбайт*1024=32768 байт
32768 байт / 32768 точек = 1 байт
в одном байте 256 значений значит ответ d
попробуй сделать "млекопитающие России"
1 хищные
1.1 собачьи
1.1.1 волк
1.1.2 шакал
1.1.3 песец
1.1.4 лиса
1.2 медвежьи
1.2.1 бурый медведь
1.2.2 белый медведь
и так далее