Найти сумму 10 нечетных чисел, не используя массив

@Клеверова · Регистрация: 13.03.2014

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

Написать программу на Pascal. Найти сумму 10 нечетных чисел, без массива.

@FedorBoom · 16.03.2014, 13:43

Pascal

var a,i,s: integer;
 begin
  s:=0; i:=0;
  while i<10 do begin
    //íå çàáóäü ñòåðåòü äâà ñëýøà ïåðåä íóæíîé ñòðî÷êîé
    //randomize;           //èëåò ïðèëîæåíèåì ê ñëåäóþùåé ñòðîêå
    //a:= random(100)-50;  //åñëè íå õî÷åøü ââîäèòü ÷èñëà ñàì
    //readln(a);           //åñëè íàäî ââîäèòü ÷èñëà ñàìîìó
    if a mod 2=1 then begin
      s:=s+a;
      inc(i);
     end;
   end;
  writeln('Ñóììà: ',s);
  readln;
 end.

@Ромаха · 16.03.2014, 13:57

Откуда такая любовь к развилкам?
Inc(s, a mod 2 * a); Inc(i, a mod 2);

@FedorBoom · 16.03.2014, 15:18

Ромаха, хоть и выглядит красиво, но менять шаг Inc'а мне не нравится.

@volvo · 16.03.2014, 15:36

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

менять шаг Inc'а мне не нравится.

Это не проблемы Паскаля. Это просто какой-то догматизм. Что не есть хорошо. Шаг Inc-а не обязан быть единичным (более того, он не обязан даже быть положительным...) И если есть такая возможность - то почему ее не использовать?

@Ромаха · 16.03.2014, 15:43

менять шаг Inc'а мне не нравится.

Бред, но можно вернуться в доисторический период :
s := s + a mod 2 * a; i := i + a mod 2;

@Клеверова 0 / 0 / 0 Регистрация: 13.03.2014 Сообщений: 3
		1
	Найти сумму 10 нечетных чисел, не используя массив 16.03.2014, 11:17. Показов 905. Ответов 5 Метки нет (Все метки) Написать программу на Pascal. Найти сумму 10 нечетных чисел, без массива. 0

@Ромаха 353 / 134 / 28 Регистрация: 16.12.2012 Сообщений: 607 Записей в блоге: 1
	16.03.2014, 13:57	3
	Откуда такая любовь к развилкам? Inc(s, a mod 2 * a); Inc(i, a mod 2); 2

@FedorBoom 102 / 70 / 79 Регистрация: 06.02.2014 Сообщений: 211
	16.03.2014, 15:18	4
	Ромаха, хоть и выглядит красиво, но менять шаг Inc'а мне не нравится. 1

@volvo Супер-модератор 32630 / 21097 / 8139 Регистрация: 22.10.2011 Сообщений: 36,362 Записей в блоге: 8
	16.03.2014, 15:36	5
	Сообщение от FedorBoom менять шаг Inc'а мне не нравится. Это не проблемы Паскаля. Это просто какой-то догматизм. Что не есть хорошо. Шаг Inc-а не обязан быть единичным (более того, он не обязан даже быть положительным...) И если есть такая возможность - то почему ее не использовать? 0

@Ромаха 353 / 134 / 28 Регистрация: 16.12.2012 Сообщений: 607 Записей в блоге: 1
	16.03.2014, 15:43	6
	менять шаг Inc'а мне не нравится. Бред, но можно вернуться в доисторический период : s := s + a mod 2 * a; i := i + a mod 2; 0

Опции темы