Консультация № 138781
31.05.2008, 13:43
0.00 руб.
0 1 1
Уважаемые эксперты, помогите решить.
Написать функцию, которая для заданного линейного массива находит сумму элементов a[i] так чтобы i не делится на квадрат целого числа большего единицы.
Заранее спасибо

Обсуждение

Неизвестный
31.05.2008, 15:02
общий
это ответ
Здравствуйте, Кочкарев Владислав Геннадьевич!
код в приложении, функция kv проверяет не является ли квадратом i, i=1 квадратом она тоже не считает. Функция summa считает сумму элементов a, если i не прошло проверку kv


Приложение:
program www;constN=20;vara:array [1..N] of integer;i,j:integer;s,l:real;function kv:boolean;varkvad:boolean;begins:=sqrt(i);j:=trunc(s);if j-s<>0 then kvad:=false else kvad:=true;if i=1 then kvad:=false;kv:=kvad;end;procedure summa;beginl:=0;for i:=1 to N doif not kv then l:=l+a[i];end;beginrandomize;for i:=1 to N dobegina[i]:=random(100);write(a[i],‘ ‘);end;writeln;summa;writeln(‘symma: ‘,l:4:0);readln;end.
Форма ответа