Написать программу Паскаль, для вычисления стоимости покупки трех разных тетрадей и трех одинаковых обложек (к ним красиво оформить вывод результата раб
5-9 класс
|
оты программы)
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.
Другие вопросы из категории
1) Фокусник высыпает на стол 501 монету достоинством в один рубль и предлагает задачу: разложить деньги по девяти кошелькам так, чтобы можно было уплатить любую сумму от 1 рубля до 501, не открывая кошельков. Как можно разложить монеты?
2) Микрокалькулятор позволяет с введённым в него числом две операции: умножать на 2 или переставлять его цифры. Можно ли получить из числа 1 число 120?
3) Составьте алгоритмы для исполнителя Черепашка ( в среде ЛогоМира, Кумир )
Подсчитать сколько раз в текстовой строке S встретится подстрока S1.
Пример работы правильной программы:
Исходные данные
строка S:
четыре черненьких чумазеньких чертенка чертили черными чернилами чертеж
подстрока S1:
черн
Ответ:
подстрока "черн" в строке "четыре черненьких чумазеньких чертенка чертили черными чернилами чертеж" встречается 3 раз(а).
Подправить код, на данный момент при таком раскладе выдает ответ 0.
текста, звука, графики и видео в одном документе»? Ответ обоснуйте.
Читайте также
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
амеба каждые 3 часа делиться на 2 клетки. Определить, сколько амеб будет через 3,6,9,12 и 24 часа.
3) дано натуральное числоо N и действительное число Х. Вычислить сумму ряда sin(x)+sin(2x)+sin(3x)+...+sin(Nx).
4) написать программу для вычисления n-ой степени числа А.
помогите, пожалуйста)
расположденных по диагонали
3.Написать программу рисующую горизонтальную цепочку из 12 кругов,каждый круг должен на половину закрывать предыдущий
Помогите,а то сижу с паскалем уже час с лишним и все никак не получается..
Заранее спасибо)