Вычислить в паскале a=(b+c)*d-k

Question

Вычислить в паскале a=(b+c)*d-k

Экономика

Гость

Ответ(ы) на вопрос:

Гость

Var b,c,d,k,s:integer; begin Writeln('b:'); readln(b); Writeln('c:'); readln(c); Writeln('d:'); readln(d); Writeln('k:'); readln(k); s:=b+c*d-k; Writeln(s); end.

Accepted Answer

Program asd; var a,b,c,d,k:integer; begin Write('Write B: '); Readln(B); Write('Write C: '); Readln(C); Write('Write D: '); Readln(D); Write('Write k: '); Readln(k); a:=(b+c)*d-k; Writeln('Resul: ',a); end.