Найти суму целых положительных чисел, кратных 4 и меньше некоторого числа N.

@Владимир2000012 · Регистрация: 28.02.2012

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

Найти суму целых положительных чисел,кратных 4 и меньше некоторого числа N.
1)Оператор FOR
2)Оператор While
3)Оператор repeat
Большое СПАСИБО)))))))))))))))))))))

@Kasiopeya · 28.02.2012, 23:25

Pascal

var
i,n,sum:integer;
begin
write('N=');
read(n);
sum:=0;
for i:=1 to n-1 do
  if i mod 4=0 then
    sum:=sum+i;
if sum=0 then
  write('Net tselix polozitelnix chisel kratnix 4 i menshe ',n)
else
  write('Summa tselix polozitelnix chisel kratnix 4 i menshe ',n,' = ',sum);
readln;
end.

Добавлено через 6 минут

Pascal

var
i,n,sum:integer;
begin
write('N=');
read(n);
sum:=0;
i:=1;
while i<n do
begin
  if i mod 4=0 then 
    sum:=sum+i;
  i:=i+1;
end;
if sum=0 then
  write('Net tselix polozitelnix chisel kratnix 4 i menshe ',n)
else
  write('Summa tselix polozitelnix chisel kratnix 4 i menshe ',n,' = ',sum);
readln;
end.

Добавлено через 7 минут

Pascal

var
i,n,sum:integer;
begin
write('N=');
read(n);
sum:=0;
i:=1;
repeat
if i mod 4=0 then
  sum:=sum+i;
  i:=i+1;
until i>=n;
if sum=0 then
  write('Net tselix polozitelnix chisel kratnix 4 i menshe ',n)
else
  write('Summa tselix polozitelnix chisel kratnix 4 i menshe ',n,' = ',sum);
readln;
end.

Добавила еще проверку на вывод, были ли такие числа

@Владимир2000012 0 / 0 / 0 Регистрация: 28.02.2012 Сообщений: 6
		1
	Найти суму целых положительных чисел, кратных 4 и меньше некоторого числа N. 28.02.2012, 23:02. Показов 1430. Ответов 1 Метки нет (Все метки) Найти суму целых положительных чисел,кратных 4 и меньше некоторого числа N. 1)Оператор FOR 2)Оператор While 3)Оператор repeat Большое СПАСИБО))))))))))))))))))))) 0

	28.02.2012, 23:25

Найти суму целых положительных чисел, кратных 4 и меньше некоторого числа N.

Решение