Введите множество состоящее из 15 целых чисел от 0 до 255. определите сколько среди них точных квадратов(одинаковые числа считать по разу)

@vitas979 · Регистрация: 25.10.2012

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

Введите множество состоящее из 15 целых чисел от 0 до 255. определите сколько среди них точных квадратов(одинаковые числа считать по разу).

@Puporev · 25.10.2012, 08:35

Pascal

uses crt;
var a,n:integer;
    m:set of byte;
begin
clrscr;
writeln('Введите в множество 15 целых чисел от 0 до 255:');
n:=0;
m:=[];
while n<=15 do
 begin
  repeat
   readln(a);
  until(a in [0..255])and(sqr(sqrt(a))=a)and not(a in m);
  m:=m+[a];
  n:=n+1;
 end;
clrscr;
writeln('Полученное множество:');
for a:=0 to 255 do
if a in m then write(a,' ');
readln
end.

@vitas979 0 / 0 / 0 Регистрация: 25.10.2012 Сообщений: 14
		1
	Введите множество состоящее из 15 целых чисел от 0 до 255. определите сколько среди них точных квадратов(одинаковые числа считать по разу) 25.10.2012, 07:44. Показов 1719. Ответов 1 Метки нет (Все метки) Введите множество состоящее из 15 целых чисел от 0 до 255. определите сколько среди них точных квадратов(одинаковые числа считать по разу). 0

	25.10.2012, 08:35

Введите множество состоящее из 15 целых чисел от 0 до 255. определите сколько среди них точных квадратов(одинаковые числа считать по разу)

Решение