в массиве,заполненном случайными числами на интервале от(-10;25),массив состоит из 15 элементов,если число оканчивается на 9 найти корень,иначе вывести на экран,что число на 9 не оканчивается

1

Ответы и объяснения

2012-03-17T16:15:54+00:00

var
a: array [1..15] of integer;
i: integer;

begin
for i := 1 to 15 do
begin
a[i] := random(35) - 10;
if abs(a[i]) mod 10 = 9 then
if a[i]>0 then writeln('корень из ',a[i],' равен ', sqrt(a[i]):5:2)
else writeln (a[i],' меньше нуля, корень не извлекается')
else writeln(a[i], ' не оканчивается на 9');
end;
end.