С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
abcpascal
5 / 5 / 6
Регистрация: 26.11.2011
Сообщений: 51
1

Ввести 8 чисел. Определить количество значений, превосходящих число 100.

29.11.2011, 18:51. Просмотров 750. Ответов 1
Метки нет (Все метки)

1. Ввести 8 чисел. Определить количество значений, превосходящих число 100.
2. Вычислить
10/3+9/3+8/3+…+1/3
заранее благодарен.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.11.2011, 18:51
Ответы с готовыми решениями:

Определить количество значений, превосходящих число 100
помогите сделал блок-схемы 1.Ввести 8 чисел. Определить количество значений,...

Определить количество значений, превосходящих число 100
помогите с двумя задачами пожалуйста. не как не могу сделать( 1.Ввести 8...

Определить количество простых чисел, не превосходящих заданное число (N<16000), шестнадцатеричная форма записи которых является палиндромом
Помогите написать программу. Задача: Определить количество простых чисел,...

Ввести последовательность чисел, окончание ввода число 1000, определить количество отрицательных и минимум
2) Пользователь вводит последовательность чисел, окончание ввода число 1000,...

Ввести число от 0 до 1000. Определить количество цифр в числе
Ввести число от 0 до 1000. Определить количество цифр в числе

1
WebMax 2.0
--\.founder./--
562 / 562 / 392
Регистрация: 20.10.2011
Сообщений: 867
29.11.2011, 19:02 2
Лучший ответ Сообщение было отмечено abcpascal как решение

Решение

Цитата Сообщение от abcpascal Посмотреть сообщение
1. Ввести 8 чисел. Определить количество значений, превосходящих число 100.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
 
const n=8;
 
var a:array [1..n] of integer;
i,x: integer;
begin
  For i:=1 to n do
  begin
  Write('Ââåäèòå ',i,'-ГҐ ÷èñëî: ');readln(a[i]);
  if a[i]>100 then inc(x);
  end;
 
Writeln('Êîëè÷åñòâî Г§Г*Г*Г·ГҐГ*ГЁГ©, ïðåâîñõîäÿùèõ ÷èñëî 100 = ',x);
end.
Добавлено через 3 минуты
Цитата Сообщение от abcpascal Посмотреть сообщение
2. Вычислить
10/3+9/3+8/3+…+1/3
заранее благодарен.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
 
const n=10;
 
var i:integer;
x: real;
begin
x:=0;
  For i:=1 to n do
   x:=x+i/3;
  Writeln('10/3+9/3+8/3+...+1/3 = ',x);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.11.2011, 19:02

Ввести число от 0 до 1000. Определить количество цифр в числе
Ввести число от 0 до 1000. Определить количество цифр в числе Очень...

Ввести число от 0 до 1000. Определить количество цифр в числе
Ввести число от 0 до 1000. Определить количество цифр в числе...

Определить количество простых чисел в интервале от 1 до 100
1. Определить количество простых чисел в интервале от 1 до 100 (простые числа...


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

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

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