1 / 1 / 0
Регистрация: 08.05.2014
Сообщений: 8
1

Заданы N целых чисел. Подсчитать, сколько из них являются квадратами

08.05.2014, 15:04. Показов 1431. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Заданы N целых чисел. Подсчитать, сколько из них являются квадратами.
Пояснение: их чисел {8, 9, 33, 46} квадратами являются числа 9 и 36.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.05.2014, 15:04
Ответы с готовыми решениями:

Определить, сколько целых чисел в интервале от a до b являются полными квадратами
Вычислите, сколько целых чисел в интервале от a до b являются полными квадратами. Заранее спасибо

Дано 30 целых чисел от 1 до 20. Подсчитать, сколько среди них чисел, делящихся на 3
Дано 30 целых чисел от 1 до 20. Подсчитать, сколько среди них чисел, делящихся на 3. Нужно решить...

Дано 30 целых чисел от 1 до 20. Подсчитать, сколько среди них чисел, делящихся на 3
Дано 30 целых чисел от 1 до 20. Подсчитать, сколько среди них чисел, делящихся на 3.

Заданы три матрицы. Сколько из них являются симметрическими
Заданы три матрицы А(первого порядка), В(второго порядка) и С(третьего порядка). Выяснить и...

4
Почетный модератор
64301 / 47596 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
08.05.2014, 15:23 2
Pascal
1
2
3
4
5
6
k:=0;
for i:=1 to n do
 begin
  readln(a);
  if(a>=0)and frac(sqrt(a)=0) then k:=k+1
 end;
1
1 / 1 / 0
Регистрация: 08.05.2014
Сообщений: 8
08.05.2014, 15:47  [ТС] 3
При вбивании твоего кода в турбо паскаль выдает почему то ошибки приске

вбиваю как есть-что не так?
0
78 / 80 / 70
Регистрация: 18.12.2013
Сообщений: 211
08.05.2014, 16:51 4
Это "сердцевина кода" дополните его вам нужно было.. Турбо Паскаль знаю не очень.. Но примерно вот так.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  i, k, n: integer;
  a: real;
 
begin
  Writeln('Vvedite kol-vo chisel:  ');
  readln(n);
  k := 0;
  for i := 1 to n do
  begin
    readln(a);
    if(a >= 0) and  (Frac(sqrt(a) = 0)) then k := k + 1
  end;
  Writeln('Kol-vo ravno: ', k); 
end.
0
Почетный модератор
64301 / 47596 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
08.05.2014, 17:39 5
Цитата Сообщение от napomoc Посмотреть сообщение
вбиваю как есть-что не так?
Мозг не вырос..
0
08.05.2014, 17:39
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.05.2014, 17:39
Помогаю со студенческими работами здесь

В последовательности целых чисел найти те которые являются квадратами
у Темырлана недавно был день рождения.Из его друзей самый оригинальный подарок решил сделать его...

Написать программу, которая введет 6 значений и посчитает сумму чисел, которые являются квадратами целых чисел
Доброе время суток! Помогите, пожалуйста, мучаюсь уже второй день с задачей, а сроки сдачи уже не...

Определить, сколько членов последовательности являются квадратами нечетных чисел
Дана последовательность N целых чисел a1,a2,...,an. Определить, сколько членов последовательности...

Одномерный массив. Вывести на экран элементы, значения которых являются квадратами целых чисел.
составьте программу ввода с клавиатуры элементов массива a и вывода на экран элементов, значения...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru