Задание: Составьте программу ввода с клавиатуры элементов массива a[1..10] и вывода на экран элементов, значения которых являются квадратами целых чисел. Вот что я составил, но извлечение корня нельзя делать в integer:( Помогите! Program shist;
Var a: array [1..10] of integer;
i: integer;
Begin
writeln('ВВедите элементы массива:');
readln(i);
writeln('Элементы массива, значения которых являются квадратами целых чисел:');
For i:=1 to 10 do
if sqrt(i) then
write (a[i], ' ')
End.
Please enter comments
Please enter your name.
Please enter the correct email address.
You must agree before submitting.

Answers & Comments


Copyright © 2024 SCHOLAR.TIPS - All rights reserved.