| ← Октябрь 2017 → | ||||||
|
1
|
||||||
|---|---|---|---|---|---|---|
|
2
|
3
|
4
|
5
|
6
|
7
|
8
|
|
9
|
10
|
11
|
12
|
13
|
14
|
15
|
|
16
|
18
|
19
|
20
|
21
|
22
|
|
|
23
|
24
|
25
|
26
|
27
|
28
|
29
|
|
30
|
31
|
|||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 12.10.2017, 17:56 Консультирует mklokov (6-й класс): Здравствуйте, svrvsvrv! Код :: выделить код
const N=10;
function sq(number: integer): boolean;
var i: integer;
begin
sq:=false;
for i:=1 to round(sqrt(number)) do
if i*i = number then
begin
sq:=true;
break
end
end;
var a: array[1..N] of integer;
i, counter: integer;
begin
counter:=0;
writeln('Введите ', N, ' натуральных чисел:');
for i:=1 to n do
read(a[i]);
writeln;
for i:=1 to N do
if sq(a[i]) then
begin
write(a[i], ' ');
counter:=counter+1;
end;
if counter = 0 then
write('Квадраты целых чисел не найдены')
end.
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
