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

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Rikki_Irena
0 / 0 / 0
Регистрация: 18.10.2011
Сообщений: 102
#1

На интервале [n, m] найти: (цикл for) - Turbo Pascal

10.03.2012, 17:23. Просмотров 439. Ответов 2
Метки нет (Все метки)

1. На интервале [n, m] найти:
а) количество чисел, кратных 4;
б) произведение данных чисел.

помогите составить программу
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.03.2012, 17:23
Я подобрал для вас темы с готовыми решениями и ответами на вопрос На интервале [n, m] найти: (цикл for) (Turbo Pascal):

Найти корни функции на заданном интервале методом дихотомии (деления отрезка пополам). функция Sin(x)/Ln(x) на интервале [-10,-9.2] - Pascal
Найти корни функции на заданном интервале методом дихотомии (деления отрезка пополам). функция Sin(x)/Ln(x) на интервале . В программе...

Цикл: Составить программу, определяющую все простые числа на заданном интервале. - Turbo Pascal
1) Составить программу, определяющую все простые числа на заданном интервале. Сообщить их количество и вывести их значения. Для определения...

Создать программу по всем 3 видам циклов...цикл с параметром,цикл с условием,цикл,и цикл с предусловием... - Turbo Pascal
Найти сумму чисел 1 в квадрате до 10 c квадрате...операцию возведению в степень не использовать учесть особенности получения квадратного...

Найти Min и Max на интервале - Pascal
Даны числа a,b(0<a<b) и набор из десяти элементов. Найти минимальный1| максимальный2 из элементов, содержащихся в интервале (a, b). Если...

Найти простые числа в интервале от 2 до n - Turbo Pascal
Найти простые числа в интервале от 2 до n.

Найти простые числа в интервале от 2 до n - Turbo Pascal
Найти простые числа в интервале от 2 до n

2
Ev[G]eN
iOS/Android Developer
Эксперт С++
5115 / 1553 / 384
Регистрация: 23.01.2011
Сообщений: 3,179
Завершенные тесты: 1
10.03.2012, 17:26 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
  Count, Proizv, n, m, i: integer;
begin
  Proizv:=1;
  write('Введите интервал [n, m]: ');
  readln(n, m);
  write('Числа из интервала [', n, ', ', m, ']: ');
  for i:=n to m do
  begin
    write(i, ' ');
    if i mod 4 = 0 then
    begin
      Proizv:=Proizv*i;
      inc(Count);
    end;
  end;
  writeln;
  writeln('Кол-во чисел кратные 4: ', Count);
  writeln('Их произведение: ', Proizv);
end.
1
Rikki_Irena
0 / 0 / 0
Регистрация: 18.10.2011
Сообщений: 102
10.03.2012, 17:28  [ТС] #3
спасибо большое !!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.03.2012, 17:28
Привет! Вот еще темы с ответами:

Найти количество чисел в интервале - Pascal
Найти количество чисел в интервале от 1 до 1000, у которых сумма цифр равна 10.

Найти и вывести на экран в интервале от 1 до n-1 - Turbo Pascal
дано натуральное число n. Найти и вывести на экран в интервале от 1 до n-1. у которых произведение всех цифр совпадает с суммой цифр...

Найти все симетричные числа на интервале от a до b. - Pascal
друзі допоможіть,завтра здача по паскалю...... зарання спасибі задачі: 1.В даноу тексті знайти кількість букв,які стоять на не...

Найти максимальное значение функции на интервале - Turbo Pascal
Помогите пожалуйста решить: Написать программу и составить блок-схему для определения максимального значения функции ...


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

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

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