Найти сумму положительных нечетных чисел, меньших 100

@Shady · Регистрация: 13.12.2009

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

найти сумму положительных нечетных чисел,меньших 100.

@nVz · 13.12.2009, 21:30

Вот

Pascal

program gg;
uses crt;
var
   a:array[1..10] of integer;
   sum,i:integer;
begin
clrscr;
  writeln('vvedite 4isla');
  for i:=1 to 10 do
  readln(a[i]);
  for i:=1 to 10 do
  if (a[i]>0) and (a[i] mod 2 <>0) and (a[i]<100)
  then begin
       sum:=sum+a[i];
       end;
  writeln('summa: ',sum);
  readln;
  end.

@alex0983 · 13.12.2009, 21:31

Pascal

Program Sum;
Var
  n,s:integer;
begin
n:=1;
while n<100 do
begin
  s:=s+n;
  n:=n+2;
end;
writeln('Сумма чисел ',s);
readln;
end.

@Shady 0 / 0 / 0 Регистрация: 13.12.2009 Сообщений: 14
		1
	Найти сумму положительных нечетных чисел, меньших 100 13.12.2009, 21:22. Показов 28749. Ответов 2 Метки нет (Все метки) найти сумму положительных нечетных чисел,меньших 100. 0

Опции темы

Найти сумму положительных нечетных чисел, меньших 100

Решение