atri
Опубликовано 7 лет назад по предмету Информатика от atri


Дан линейный массив А[1..N], содержащий целые числа. Получить те элементы массива , которые являются полными квадратами.

  1. Ответ
    Ответ дан sinbad7

    var

    a:[1..100] array of integer;

    i,n,p:integer;

    begin

    readln(n);

    for i:=1 to n do

    begin

    readln(a[i]);

    p:=2;

    while (p*p<=a[i]) do

    begin

    if p*p=a[i] then writeln (a[i],' полный квадрат')

    p:=p+1;

    end;

    end;

    end.

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц