Новые сообщения · Правила  
  • Страница 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
Поиск: