Ввести 10 целых чисел .Найти произведение тех,которые находятся в диапазоне от 3 до 7

@Serheo666 · Регистрация: 23.03.2011

Author24 — интернет-сервис помощи студентам

Ввести 10 целых чисел.Найти произведение тех,которые находятся в диапазоне от 3 до 7.

@KaiTheCat · 06.04.2011, 07:16

Pascal

var
   a,i,p: integer;
Begin
   p:=1;
   for i:=0 to 9 do 
      begin
         readln(a)
         if (a>=3) and (a<=7) then 
            p:=p*a;
      end;
   writeln('p=',p);
   readln;
End.

@Serheo666 · 12.04.2011, 19:17 **[ТС]**

Ввести 10 целых чисел .Найти произведение тех,которые находятся в диапазоне от 3 до 7.В программе:While и for. Очень нужно

magirus · 12.04.2011, 19:33

Комментарий модератора

называйте темы информативно!

@nuHrBuH · 12.04.2011, 19:39

Pascal

uses wincrt;
var
  a,b,x,p : integer;
  n : byte;
begin
  p := 1;
  write('vvedite diapazon : '); readln(a,b);
  writeln('vvedite chisla (konec vvoda "0"): ');  x := 1;
  while x<>0 do
    begin
       read(x);
       if (x>=a)and
          (x<=b)
          then
             p := p * x;
    end;
    writeln('p : ',p);
 
    writeln;
  writeln('--------------------------------');
    writeln;
    write('vvedite  kolichestvo chisel : '); readln(n);
    writeln('vvedite chisla : ');
    p := 1;
    for a:=1 to n do
       begin
          read(x);
          if (x>=a)and
          (x<=b)
          then
             p := p * x;
       end;
    writeln(' P : ',p);
end.

@Serheo666 · 12.04.2011, 19:49 **[ТС]**

неработает
n : byte; в этой строке и дальше

@nuHrBuH · 12.04.2011, 20:18

почему?

@Высокий · 12.04.2011, 20:30

Попробуй модуль wincrt заменить на crt.

Новые блоги и статьи
Как проводить научные вычисления на Python InfoMaster 15.01.2025 Python стал одним из наиболее востребованных языков программирования в области научных вычислений благодаря своей простоте, гибкости и обширной экосистеме специализированных библиотек. Научные. . .	Создание игры типа Minecraft на PyGame/Python: пошаговое руководство InfoMaster 15.01.2025 В данном руководстве мы рассмотрим процесс создания игры в стиле Minecraft с использованием библиотеки PyGame на языке программирования Python. Этот проект идеально подходит как для начинающих. . .	Как создать свою первую игру в стиле Doom на Unreal Engine InfoMaster 15.01.2025 Разработка шутера от первого лица в стиле классического Doom представляет собой увлекательное путешествие в мир игрового программирования, где сочетаются творческий подход и технические навыки. . . .	Параллельное программирование: основные технологии и принципы InfoMaster 15.01.2025 Введение в параллельное программирование Параллельное программирование представляет собой фундаментальный подход к разработке программного обеспечения, который позволяет одновременно выполнять. . .	Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD InfoMaster 15.01.2025 В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .	Что такое CQRS и как это реализовать на C# с MediatR InfoMaster 15.01.2025 Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .
Как настроить CI/CD с Azure DevOps InfoMaster 15.01.2025 CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .	Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka, REST и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS, Swagger и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .

@Serheo666 3 / 3 / 0 Регистрация: 23.03.2011 Сообщений: 68
		1
	Ввести 10 целых чисел .Найти произведение тех,которые находятся в диапазоне от 3 до 7 06.04.2011, 00:40. Показов 2660. Ответов 7 Метки нет (Все метки) Ввести 10 целых чисел.Найти произведение тех,которые находятся в диапазоне от 3 до 7. 0

@Serheo666 3 / 3 / 0 Регистрация: 23.03.2011 Сообщений: 68
	12.04.2011, 19:17 [ТС]	3
	Ввести 10 целых чисел .Найти произведение тех,которые находятся в диапазоне от 3 до 7.В программе:While и for. Очень нужно 0

@Serheo666 3 / 3 / 0 Регистрация: 23.03.2011 Сообщений: 68
	12.04.2011, 19:49 [ТС]	6
	неработает n : byte; в этой строке и дальше 0

@nuHrBuH 483 / 427 / 205 Регистрация: 04.03.2011 Сообщений: 1,259
	12.04.2011, 20:18	7
	почему? 0

@Высокий 250 / 250 / 135 Регистрация: 09.04.2011 Сообщений: 524
	12.04.2011, 20:30	8
	Попробуй модуль wincrt заменить на crt. 0