Вычисление суммы чисел от 50 до 70 кратным 4. В циклах: for, while, repeat

@NiktoNe · Регистрация: 17.04.2016

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

Заранее спасибо!!!

@Peoples · 17.04.2016, 13:42

For

Pascal

program pr;
 
var
  i, sum: integer;
 
begin
  sum := 0;
  for i := 50 to 70 do
    if i mod 4 = 0 then
      sum := sum + i;
  writeln(sum);
end.

While

Pascal

program pr;
 
var
  i, sum: integer;
 
begin
  sum := 0;
  i := 50;
  while i < 70 do
  begin
    if i mod 4 = 0 then
      sum := sum + i;
    i := i + 1;
  end;
  writeln(sum);
end.

Repeat

Pascal

program pr;
 
var
  i, sum: integer;
 
begin
  sum := 0;
  i := 50;
  repeat 
    if i mod 4 = 0 then
      sum := sum + i;
    i := i + 1;
  until i > 70;
  writeln(sum);
end.

@NiktoNe 0 / 0 / 0 Регистрация: 17.04.2016 Сообщений: 1
		1
	Вычисление суммы чисел от 50 до 70 кратным 4. В циклах: for, while, repeat 17.04.2016, 13:36. Показов 1259. Ответов 1 Метки нет (Все метки) Заранее спасибо!!! 0

Опции темы

Вычисление суммы чисел от 50 до 70 кратным 4. В циклах: for, while, repeat

Решение