1) var i,n: Integer;
begin
i:=0;
writeln('Введите число');
readln(n);
while i<>n do
begin
Inc(i);
writeln(i);
end;
end.
2) var i,n,x,count: Integer;
begin
writeln('Введите кол-во цифр');
readln(n);
for i:=1 to n do
begin
writeln('Введите ',i,' число');
readln(x);
Inc(count,x);
end;
writeln('Сумма чисел: ',count);
end.
Лови, что ли. так нужно было сделать?
Имеешь в виду коды ошибок? Если да то:
1) 404 - Страница не найдена
2) 403 - Соединение с сервером закрыт
3) <span>302 - Ресурс временно перемещен
4) </span>305 - Следует использовать прокси<span>
5) </span>400 - Неверный запрос<span> </span>
Первое сообщение
32=2 в степени 5 => 80*5=400 бит
Второе сообщение 64=2 в степени 6 => 70*6=420 бит
400 < 420.
Во втором сообщении информации больше
Var
a,c:integer;
b:real;
begin
readln(a,c);
b:=sqrt(c*c-a*a);
writeln('Sabc ',a*b/2);
end.