Составить циклический алгоритм

@Mupil · Регистрация: 17.02.2020

Составить программу для вывода на экран нечетных чисел от 13 до 3. Найти сумму этих чисел.

@Puporev · 17.02.2020, 14:06

Pascal

begin
  var s:integer=0;
  var i:integer=13;
  while i>=3 do
   begin
    write(i:3);
    inc(s,i);
    dec(i,2);
  end;
writeln;
write('Сумма=',s)  
end.

@JuriiMW · 17.02.2020, 15:40

Pascal

1
2
3

begin
  Range(13,3,-2).Println.Sum.PrintLn;
end.

@Mupil 0 / 0 / 0 Регистрация: 17.02.2020 Сообщений: 3
		1
	Составить циклический алгоритм 17.02.2020, 13:34. Показов 1320. Ответов 2 Метки нет (Все метки) Составить программу для вывода на экран нечетных чисел от 13 до 3. Найти сумму этих чисел. 0

Опции темы

Составить циклический алгоритм

Решение