Ну, примерно так. можно решить и по-другому
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
Var
a, b, c: real;
begin
readln(a, b, c);
if a + b = c then
writeln('YES')
else
writeln('NO')
end.
Int h = 100000,count=1;
while(h!=0)
{
h/=10;
count++;
}
if(count / 2 == 0)
//число четное
наверное как то так