Задание:
В массиве, заполненном случайными числами на интервале от (-10; 25) , массив состоит из 15 элементов, если число оканчивается на 9 найти корень, иначе вывестина экран, что число на 9 не оканчивается
Решение:
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.
Знаете другой ответ?