Cрочно, программа на цикл с параметром в Паскале.
Для заданного натурального числа n рассчитать сумму и сравнить ее со значением у: 1+2+3+...+n y=(n+1)/2
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
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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