Var n,a,b,c,d,f:integer; begin write('Введите трёхзначное число n=',n); a:= n del 100...

Question

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;

Answer 1

Много у тебя косяков, иду по порядку:
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)

ответ  у меня не получился, если скинешь в лс задачу, я помогу тебе ее решить! Удачи =)