Найти количество квадратов нечетных чисел среди компонентов файла

@Sagadatklass777 · Регистрация: 15.04.2010

Студворк — интернет-сервис помощи студентам

Пожалуйста помагите?
Заполнить файл Натуральными числами полученными с помощью генератора случайных чисел. найти количество квадратов нечетных чисел среди компанентов

@кот Бегемот · 16.04.2010, 09:18

На каком языке должна быть ваша программа?

@Sagadatklass777 · 16.04.2010, 09:24 **[ТС]**

На языке Паскаль

@кот Бегемот · 16.04.2010, 09:48

Сообщение от Sagadatklass777

Пожалуйста помагите?
Заполнить файл Натуральными числами полученными с помощью генератора случайных чисел. найти количество квадратов нечетных чисел среди компанентов

Pascal

var
a:array[1..1000]of integer;
f:text;
i,c,n,k,m,j:integer;
begin
randomize;
writeln('vvedite kolichestvo komponentov faila');
readln(n);
assign(f,'input.txt');
rewrite(f);
for i:=1 to n do
begin
c:=random(100)+1;
write(f,c:4);
end;
close(f);
reset(f);
while not eof(f) do
begin
inc(k);
read(f,a[k]);
end;
close(f);
writeln('dannye');
for i:=1 to k do
write(a[i]:4);
writeln;
for i:=1 to k do
 for j:=1 to trunc(sqrt(a[i] div 2)) do
 if (j*2-1)*(j*2-1)=a[i] then
 begin
 inc(m);
 write(a[i]:4);
 end;
 writeln;
writeln('kol-vo kvadratov=',m);
readln;
end.

@Sagadatklass777 0 / 0 / 0 Регистрация: 15.04.2010 Сообщений: 27
		1
	Найти количество квадратов нечетных чисел среди компонентов файла 16.04.2010, 07:32. Показов 1603. Ответов 3 Метки нет (Все метки) Пожалуйста помагите? Заполнить файл Натуральными числами полученными с помощью генератора случайных чисел. найти количество квадратов нечетных чисел среди компанентов 0

@кот Бегемот Платежеспособный зверь 8835 / 4269 / 1621 Регистрация: 28.10.2009 Сообщений: 11,408
	16.04.2010, 09:18	2
	На каком языке должна быть ваша программа? 0

@Sagadatklass777 0 / 0 / 0 Регистрация: 15.04.2010 Сообщений: 27
	16.04.2010, 09:24 [ТС]	3
	На языке Паскаль 0

Опции темы

Найти количество квадратов нечетных чисел среди компонентов файла

Решение