profile
Опубликовано 5 лет назад по предмету Информатика от ufe

Написать программу Паскаль, для вычисления стоимости покупки трех разных тетрадей и трех одинаковых обложек (к ним красиво оформить вывод результата работы программы)

  1. Ответ
    Ответ дан ilyha7up

    program name;
    uses crt;
    var a,b,c,d,e: real;
    begin

    clrscr;
    write('Введите стоимость 1ой тетради: ');
    readln(a);
    write('Введите стоимость 2ой тетради: ');
    readln(b);
    write('Введите стоимость 3ей тетради: ');
    readln(c);
    write('Введите стоимость обложки: ');
    readln(d);
    e:=a+b+c+d*3;
    write('Стоимость всех вещей равна: ',e:3:2,' руб.');
    readln;
    end.

     

Самые новые вопросы