Написать программу Паскаль, для вычисления стоимости покупки трех разных тетрадей и трех одинаковых обложек (к ним красиво оформить вывод результата работы программы)
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
