SHARE
TWEET

infa

a guest Oct 19th, 2019 74 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program a1;
  2. uses crt;
  3. var price1, price2, number1, number2:real;
  4. begin
  5.   write('Введите цену ручек:');
  6.   readln(price1);
  7.   write('Введите количество покупаемых ручек:');
  8.   readln(number1);
  9.   write('Введите цену карандашей:');
  10.   readln(price2);
  11.   write('Введите количество покупаемых карандашей:');
  12.   readln(number2);
  13.   writeln('Стоимость покупки = ', (price1*number1)+(price2*number2));
  14. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top