profile
Размещено 4 года назад по предмету Информатика от em5jna

ПАСКАЛЬ
В гастрономическом отделе продовольственного магазина
такой ассортимент продуктов:

масло по 180 грн. за 1 кг,

сыр по 150 грн. за 1 кг,

сметана по 70 грн. за 1кг,

колбаса по 240 грн. за 1кг.

Спросить сколько нужно купить килограмм каждого
продукта;

Подсчитать стоимость покупки и вывести на экран.

  1. Ответ на вопрос
    Ответ на вопрос дан zhoramalushevpegkpk

    Ответ:

    var

     a,b,c,d,N:real;

    begin            

     a:=180; write('Введите количество масла в кг (',a,' грн/кг):');  

     read(N); a:=(N*a);

     b:=150; write('Введите количество сыра в кг (',b,' грн/кг):');  

     read(N); b:=(N*b);

     c:=70;  write('Введите количество сметаны в кг (',c,' грн/кг):');  

     read(N); c:=(N*c);

     d:=240; write('Введите количество колбасы в кг (',d,' грн/кг):');  

     read(N); d:=(N*d);

     write('Стоимость вашей покупки: ',a+b+c+d,' грн.');

    end.

    1. Ответ на вопрос
      Ответ на вопрос дан zhoramalushevpegkpk
      Есть версия чуть короче:
      begin
      var t:array [1..4] of (string,integer); var N,R:real;
      t[1]:=('масло',180);t[2]:=('сыр ',150);t[3]:=('сметана',70);t[4]:=('колбаса',240);
      for var l:=1 to 4 do
      begin
      var s:string:=t[l].Item1; s[length(s)]:=(s[length(s)]='а')? 'ы':'а';
      write('Введите количество ',s,' в кг (',t[l].Item2,' грн/кг):');
      read(N); R:=R+t[l].Item2*N
      end;
      write('Стоимость вашей покупки: ',R,' грн.');
      end.
    2. Ответ на вопрос
      Ответ на вопрос дан em5jna
      спасибо))))
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.