Помогите с задачей! Сижу на контрольной

@Birs · Регистрация: 19.10.2011

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

Даны натуральные числа n, a1, a2 ...an . Найти члены последовательности являющиеся полными квадратами

@mamedovvms · 19.10.2011, 14:59

Pascal

1
2
3

for i:=1 to n do
 if sqrt(a[i]) = trunc(sqrt(a[i])) then
  writeln(a[i]);

@Birs · 19.10.2011, 15:00 **[ТС]**

И это все?

@mamedovvms · 19.10.2011, 15:04

Pascal

uses crt;
var n,i:byte;
     a:array[1..100] of word;
begin
 clrscr;
 writeln('Введите количество чисел');
 readln(n);
 for i:=1 to n do
 begin
  write('a[',i,']= ');
  readln(a[i]);
 end;
writeln('Полные квадраты');
for i:=1 to n do
 if sqrt(a[i]) = trunc(sqrt(a[i])) then
  write(a[i],' ');
readln;
end.

Так пойдет

@Puporev · 19.10.2011, 15:05

Можно еще так

Pascal

1
2
3

for i:=1 to n do
if frac(sqrt(a[i])) =0 then
  writeln(a[i]);

@mamedovvms · 19.10.2011, 15:06

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

Можно еще так

Тоже хотел так, но как не странно забыл функцию дробной части, а искать лень ))))))))))

@Birs · 19.10.2011, 15:19 **[ТС]**

да, спасибо вам огромное очень помогли!
Дальше буду стараться сам писать!

@Birs 0 / 0 / 0 Регистрация: 19.10.2011 Сообщений: 3
		1
	Помогите с задачей! Сижу на контрольной 19.10.2011, 14:52. Показов 585. Ответов 6 Метки нет (Все метки) Даны натуральные числа n, a1, a2 ...an . Найти члены последовательности являющиеся полными квадратами 0

@Birs 0 / 0 / 0 Регистрация: 19.10.2011 Сообщений: 3
	19.10.2011, 15:00 [ТС]	3
	И это все? 0

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	19.10.2011, 15:06	6
	Сообщение от Puporev Можно еще так Тоже хотел так, но как не странно забыл функцию дробной части, а искать лень )))))))))) 0

@Birs 0 / 0 / 0 Регистрация: 19.10.2011 Сообщений: 3
	19.10.2011, 15:19 [ТС]	7
	да, спасибо вам огромное очень помогли! Дальше буду стараться сам писать! 0

Опции темы