Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Составить программы для решения приведенных ниже задач отладить
их и проверить работу при различных исходных данных.

Ответ оставил Гость

Program Turbo;
uses CRT;
Var
N,S:integer;
Begin
S:=0;
Write(N = );
ReadLn(N);
For N:= 1 to N do
 S:=S+N;
if S=N*(N+1)/2 then WriteLn(Тождество верно (,S,=,S,))
else WriteLn(Тожедство ложно,(,S,<>,N*(N+1)/2,))
End.