Дана последовательность целых чисел. Определить, есть ли среди них точные квадраты и вывести их на экран

@programmistnub · Регистрация: 27.06.2012

Дана последовательность целых чисел А₁,...,А₁₀₀. Определить, есть ли среди них точные квадраты и вывести их на экран.

@CodeR · 07.07.2012, 15:39

Pascal

Const n=100;
Var A:array[1..n] of integer;
    i,k:byte;
Begin
    Randomize;
    k:=0;
    For i:=1 to n do
     Begin
      A[i]:=random(100);
      write(A[i],' ');
     End;
    writeln;
    For i:=1 to n do
     if frac(sqrt(A[i]))=0 then 
      Begin
       inc(k);
       write(A[i],' ');
      End;
    if k=0 then writeln('Среди элементов нету точных квадратов');
    readln;
End.

@programmistnub 3 / 3 / 0 Регистрация: 27.06.2012 Сообщений: 165 Записей в блоге: 1
		1
	Дана последовательность целых чисел. Определить, есть ли среди них точные квадраты и вывести их на экран 07.07.2012, 15:32. Показов 1490. Ответов 1 Метки нет (Все метки) Дана последовательность целых чисел А₁,...,А₁₀₀. Определить, есть ли среди них точные квадраты и вывести их на экран. 0

Опции темы

Дана последовательность целых чисел. Определить, есть ли среди них точные квадраты и вывести их на экран

Решение