задачки на циклы...... - Форум ПРОГРАММИСТОВ

Новые сообщения · Правила

Страница 1 из 1 1
Модератор форума: Berestovskiy

задачки на циклы......

в паскале вобще ноль,может кому то не трудно помочь...
1. Задано целое положительное число N>1. Вычислить сумму четных целых чисел в диапазоне 1..N. Для решения задачи использовать счетный цикл.

2. Задано целое число N.
Если N>0, найти сумму целых чисел в диапазоне 1..N
Если N<0, найти сумму целых чисел в диапазоне N..-1
Если N=0, вывести на экран соответствующее сообщение.
Для решения задачи использовать цикл с предусловием

№1 | Автор: FoXy | 2010-10-09, 16:39 | Репутация: [ + 0 ]

Uses crt;
var s,n,j:integer;
begin
write('n=');
readln(n);
s:=0;
for j:=2 to n do
if (j mod 2) = 0 then s:=s+j;
writeln('summa=',s);
readkey;
end.

№2 | Автор: admin | 2010-10-09, 16:57 | Репутация: [ + 22 ]

Code

var s,n,j:integer;
begin
write('n=');
readln(n);
s:=0;
n:=abs(n);
if n<>0 then
   while n>1 do
     begin
      s:=s+n;
      dec(n);
     end
   else
writeln('введенное число равно 0');
end.

№3 | Автор: Fireleo | 2010-10-11, 07:50 | Изменено: Fireleo - Пн, 2010-10-11, 07:52 | Репутация: [ + 30 ]

задачки на циклы......

Страница 1 из 1
1

прикладная математика