Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Султанбек111
0 / 0 / 0
Регистрация: 01.05.2016
Сообщений: 7
#1

Что вычисляет следующая программа, если мы вводим n натуральных чисел a1, a2, …, an? - Turbo Pascal

14.09.2017, 19:50. Просмотров 111. Ответов 1
Метки нет (Все метки)

Что вычисляет следующая программа, если мы вводим n натуральных чисел a1, a2, …, an?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var n, a, k, i: integer;
begin
writeln('Введите количество натуральных чисел');
readln(n);
k:=0;
writeln('Введите ', n, ' натуральных чисел');
for i:=1 to n do
begin
readln(a);
if sqr(trunc(sqrt(a)))=a then if trunc(sqrt(a)) mod 2 <>0 then k:=k+1;
end;
writeln(k);
end.
Количество полных квадратов среди a1, a2, …, an.
Количество удвоенных нечетных чисел среди a1, a2, …, an.
Количество квадратов нечетных чисел среди a1, a2, …, an.
Количество квадратов четных чисел среди a1, a2, …, an.
Количество удвоенных полных квадратов среди a1, a2, …, an.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.09.2017, 19:50
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Что вычисляет следующая программа, если мы вводим n натуральных чисел a1, a2, …, an? (Turbo Pascal):

Напишите, что выведет на экран следующая программа: - Pascal
1 Напишите, что выведет на экран следующая программа: Program V2_Z1; Var A,B:Integer; Procedure F1(Var X,Y:Integer);

Напишите, что выведет на экран следующая программа - Pascal
Напишите, что выведет на экран следующая программа: Program V1_Z1; Var A,B: Integer; Procedure F1 (X,Y:Integer); Begin ...

Задача такая: вводим массив, вводим строку, если последние символы элемента массива совпадают с символами строки выводим элемент массива(см. Описание) - Pascal
Например Вводим массив: ррррррффф ллллллл ееееееффф тттттт Вводим строку: ффф

Вводим с клавиатуры 5 чисел, программа находит сумму положительных чисел, сумму отрицательных чисел - Turbo Pascal
1) Вводим с клавиатуры 5 чисел, программа находит сумму положительных чисел, сумму отрицательных чисел, и количество положительных и...

Напишите программу которая вычисляет сумму первых n натуральных чисел - Pascal
напишите программу которая вычисляет сумму: первых n натуральных чисел; квадратов первых n натуральных чисел; всех четных чисел в диапазоне...

Вводим число и программа должна показать сколько от 0 до этого числа четных чисел - Pascal
Это из школьной программы, возможно у когонить есть программы выполняющие действия 1)Программа подсчитывающая по граммам цену конфет ...

1
Puporev
Модератор
52399 / 40246 / 13579
Регистрация: 18.05.2008
Сообщений: 93,031
14.09.2017, 19:56 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Количество квадратов нечетных чисел среди a1, a2, …, an.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.09.2017, 19:56
Привет! Вот еще темы с ответами:

Вводятся числа, пока не вводится 0, если его ввели, то программа вычисляет сумму всех введённых чисел - C++
в компьютер вводятся числа, пока не вводится 0, если его ввели, то программа вычисляет сумму всех введённых чисел

Что напечатает на экране следующая программа? - C (СИ)
void main() { int x; clrscr(); x=2*2&lt;&lt;2-1&amp;1; printf(&quot;%d\n&quot;,x); x=1+2*3%4-5^6; ...

Определите, что выведет следующая программа на экран - PascalABC.NET
Определите, что выведет следующая программа на экран. var a , z , x , y , p : integer ; procedure p2 (var y : integer ; var z : integer...

Написать программу, которая вычисляет сумму натуральных чисел - Информатика
Здравствуйте,помогите написать программу, в информатике ничего не понимаю, поэтому обращаюсь к вам. Задание: Напишите программу,...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru