Задать вопрос Регистрация
Помочь другим

  • составьте программу ввода с клавиатуры элементов массива а [1..10] и вывода на экран элементов, значения которых являются квадратами целых чисел

Ответы 1

  • var

    a:array [1..10] of longint;

    i:integer;

    x:real;

    begin

    for i:=1 to 10 do readln(a[i]);

    writeln('================================================');

    for i:=1 to 10 do begin

    x:=sqrt(a[i]);

    if sqr(x)=a[i] then write (a[i],'  ');

    end;

    readln;

    end. 

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years