// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var r1:=abs(ReadReal('Наружный радиус кольца'));
var r2:=abs(ReadReal('Внутренний радиус кольца'));
if (r1*r2>0) and (r1>r2) then
Writeln('Площадь кольца ',pi*(sqr(r1)-sqr(r2)))
else Writeln('Неверные данные')
end.
<u><em>Тестовое решение:</em></u>
Наружный радиус кольца 25
Внутренний радиус кольца 21.8
Площадь кольца 470.484915801607
а) ответ во вложении (остальные аналогично решаются)
(у тебя ошибка в последней строке первой таблицы)
Если под "кб" подразумевались килоБИТы, то 3500*1024/16/3200 = 70 секунд. Если – килоБАЙТы, то 3500*1024*8/16/3200 = 560 секунд.
Var i:integer;
x:array[1..5]of integer;
begin
for i:=1 to 5 do
begin
if i<>5 then read(x[i+1])
else read(x[1]);
end;
end.
Самое простое решение-считывать сразу в сдвинутом состоянии.