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

Question

Информатика

Юраша

13 ноября, 22:24

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

+2

Ответы (2)

Знаете ответ на вопрос?

Захар · Answer 1

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.

Владиславка · Answer 2

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.