Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/11: Рейтинг темы: голосов - 11, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 19.12.2012
Сообщений: 28
1

Составьте программу, которая находит произведение чисел кратных 2 и 5 в диапазоне от 30 до 70

24.01.2013, 19:50. Просмотров 2309. Ответов 4
Метки нет (Все метки)

Составьте программу, которая находит произведение чисел кратных 2 и 5 в диапазоне от 30 до 70 самыми простыми командами!!


Спасибо огромное заранее!!! Прошу помочь)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.01.2013, 19:50
Ответы с готовыми решениями:

Составьте программу, которая находит все простые числа в диапазоне от A до B
Составьте программу, которая находит все простые числа в диапазоне от A до B.

Составьте программу, которая находит все совершенные числа в диапазоне от A до B
Составьте программу, которая находит все совершенные числа в диапазоне от A до B.

Составте программу, которая найдет сумму чисел, кратных 2 и произведение чисел, кратных 5
p.s.нужно использовать паскальABC p.s.s.можно использовать if,while,for. 1.Составте программу,...

Составьте программу, которая вычисляет произведение чисел от 1 до N
Помогите пожалуйста! Составьте программу, которая вычисляет произведение чисел от 1 до N....

4
3448 / 2386 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
24.01.2013, 20:45 2
Pascal
1
2
3
4
5
6
7
8
9
10
var
  i: byte;
  p: longint;
begin
  p:=1;
  for i:=30 to 70 do
    if (i mod 2=0)and(i mod 5=0) then
      p:=p*i;
  writeln('p = ',p);
end.
1
Pascal, Delphi, C++
215 / 128 / 91
Регистрация: 01.12.2012
Сообщений: 628
24.01.2013, 20:48 3
не успел))
0
3448 / 2386 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
24.01.2013, 20:53 4
Цитата Сообщение от Taftis Посмотреть сообщение
ойойой не успел

а может нужно именно через массивы.. счас Deadmau89 придет, рассудит
0
Pascal, Delphi, C++
215 / 128 / 91
Регистрация: 01.12.2012
Сообщений: 628
24.01.2013, 21:00 5
ну тогда пусть пишет сюда я скину мне не жалко)

Добавлено через 2 минуты
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses crt;
var i,n,g:integer;
    a:array[1..1000] of integer;
begin
write('input n=');
readln(n);
writeln('ishod stroka');
 
for i:=1 to n do begin
 
write('a[',i,']='); read(a[i]);
end;
for i:=1 to n do begin
write(a[i]:3);
end;
g:=1;
for i:=1 to n do begin
if (a[i]>=30) and (a[i]<=70) then begin
if(a[i] mod 2=0) or (a[i] mod 5=0) then begin
g:=g*a[i];
end;
end;
end;
writeln;
writeln('proizved= ',g);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.01.2013, 21:00

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Составьте программу, которая вычисляет произведение чисел от 1 до N
1) Составьте программу, которая вычисляет произведение чисел от 1 до N. Значение N вводится с...

Составьте программу,которая формирует массив из 16 случайных целых чисел от -20 до 20 и находит элементы с нулевыми значениями
Составьте программу,которая формирует массив из 16 случайных целых чисел от -20 до 20 и находит...

Написать программу, которая находит сумму всех целых нечетных чисел в заданном диапазоне
Написать программу, которая находит сумму всех целых нечетных чисел в диапазоне, указанном...

Написать программу, которая находит сумму всех целых нечетных чисел в диапазоне, указанном пользователя.
#include &lt;iostream&gt; using namespace std; void main(){ int a,b; cout&lt;&lt;&quot;OT &quot;; cin&gt;&gt;a;...


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

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

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