Ответы и решения

Cрочно, программа ** цикл с параметром в Паскале. Для заданного натурального числа n...

0 голосов
39 просмотров

Cрочно, программа на цикл с параметром в Паскале.

Для заданного натурального числа n рассчитать сумму и сравнить ее со значением у: 1+2+3+...+n y=(n+1)/2


Информатика Отличник (6.2k баллов) | 39 просмотров
Дан 1 ответ
0 голосов

program chisla;

var summa,n,y,i:longint;

begin

  writeln('daite N'); readln(n);

  for i:=1 to n do summa:=summa+i;

  {etot tikl dayot summu dlya nomera N, primer: n=5, summa=1+2+3+4+5=15;}

 

  y:=(n+1)/2;

 

  if y>summa then writeln('Y > summa N ') else

  if y=summa then writeln('Y = summa N') else writeln('Y < summa');

readln;

end.

 

ya tak ponyal zadachu, esli ne tak, proshu popraviti. spasibo

Начинающий (196 баллов)
10,984,878 вопросов
13,471,016 ответов
8,518,553 комментариев
4,909,216 пользователей