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

@Lexa_Soad · Регистрация: 26.05.2012

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

Нужна ваша помощь.

1) Последовательно вводятся 10 целых чисел. Найти произведение тех, которые кратны удовлетворительно.

@TeMbI4_01 · 02.06.2012, 01:52

Pascal

program pr2;
var a,n,s,i:integer;
begin
n:=2;
for i:=1 to 10 do
begin
if (i mod 2) = 0 then
begin
s:=i*n;
end;
end;
writeln('Ответ: ',s);
end.

@Lexa_Soad · 04.06.2012, 17:16 **[ТС]**

Без обид конечно...но в задаче говорится о вводе 10 чисел, а здесь вообще ввода нету.Хотелось бы другой вариант

@ermolay · 05.06.2012, 12:02

Сообщение от Lexa_Soad

Хотелось бы другой вариант

а корректно задачу выложить?

Сообщение от Lexa_Soad

кратны удовлетворительно

это как?

@Lexa_Soad · 08.06.2012, 19:38 **[ТС]**

Извеняюсь. Кратны удовлетворительно -это значит делятся на два без остатка.

@Das Gespenst · 09.06.2012, 01:17

Вот правильное решение.

Pascal

program z;
var i,p:integer;
a:array [1..10] of integer;
begin
     p:=1;
     writeln('Ввод элементов вектора');
     for i:=1 to 10 do
         begin
              write('a[',i,']=');
              readln(a[i]);
         end;
     for i:=1 to 10 do
         if (a[i] mod 2)=0
            then
                p:=p*a[i];
     writeln('Вывод вектора');
     write('a=( ');
     for i:=1 to 10 do
         write(a[i],' ');
     write(')');
     writeln('Произведение - ',p);
end.

@Lexa_Soad 0 / 0 / 0 Регистрация: 26.05.2012 Сообщений: 11
		1
	Задачи на цикл. Последовательно вводятся 10 целых чисел. Найти произведение тех, которые кратны удовлетворительно 01.06.2012, 22:13. Показов 4646. Ответов 5 Метки нет (Все метки) Нужна ваша помощь. 1) Последовательно вводятся 10 целых чисел. Найти произведение тех, которые кратны удовлетворительно. 0

@Lexa_Soad 0 / 0 / 0 Регистрация: 26.05.2012 Сообщений: 11
	04.06.2012, 17:16 [ТС]	3
	Без обид конечно...но в задаче говорится о вводе 10 чисел, а здесь вообще ввода нету.Хотелось бы другой вариант 0

@ermolay 3451 / 2389 / 2135 Регистрация: 04.12.2011 Сообщений: 3,966
	05.06.2012, 12:02	4
	Сообщение от Lexa_Soad Хотелось бы другой вариант а корректно задачу выложить? Сообщение от Lexa_Soad кратны удовлетворительно это как? 0

@Lexa_Soad 0 / 0 / 0 Регистрация: 26.05.2012 Сообщений: 11
	08.06.2012, 19:38 [ТС]	5
	Извеняюсь. Кратны удовлетворительно -это значит делятся на два без остатка. 0

	09.06.2012, 01:17

Опции темы