Var n,a,b,c,d,f:integer; begin write('Введите трёхзначное число n=',n); a:= n del 100 ; b:= n mod 10; c:= n del 10; a+b+c=s; if(s>=10)(s<=99); <br> else(s); then f:=s del 10; d:=s mod 10; writeln('Сумма',s); end. Помогите, Паскаль не знаю, выбивают ошибку в этой области a:= n del 100 ; b:= n mod 10; c:= n del 10;
Много у тебя косяков, иду по порядку: 1) del ? что это? может ты должен использовать div? =) 2) a+b+c=s; сразу несколько косяков, во 1-х так не пишут, а пишут s:=a+b+c;, во 2-х у тебя переменная s не определена в Var 3) if(s>=10)(s<=99); </strong> else(s); then это вообще печально, так не пишут, запись должна написана так if(s>=10) and (s<=99) then </strong> .... else(s) ответ у меня не получился, если скинешь в лс задачу, я помогу тебе ее решить! Удачи =)