Program isperfectnumber(input,output); var i, - вопрос №9215414 от fil3853tima 24.10.2022 12:14

Question

Информатика: Program isperfectnumber(input,output); var i, n, s: integer; begin write( n = ); readln(n); s : = 0; for i : = 1 to n do if n mod i = 0 then s : = s + i ; writeln if s - n = n then write( äà ) else write( íåò ) writeln end. , почему программа не правильная?

fil3853tima · Answer

1)Зачем писать WRITELN в 13 и 19 строчках?2)Тебя не учили заключать в begin,если 2 и более операторов if...

Program isperfectnumber(input,output); var i, n, s: integer; begin write('n = '); readln(n); s : = 0; for i : = 1 to n do if n mod i = 0 then s : = s + i ; writeln if s - n = n then write('äà') else write('íåò') writeln end. , почему программа не правильная?