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

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

Задать свой вопрос
Антонина Куташкина
Просто ввести данные и посчитать их ?
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.
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт