Напишите программу пожайлуста для 12 задачи
5-9 класс
|
var a,b,x:integer;
r:real;
begin
read(x,a,b);
r:=((160/4*3)-a)*(x/2)+((160/4)-b)*x;
writeln(r);
end.
можешь строчку вычисления результата на несколько разбить, смысл в том, что мы находим сколько всего билетов есть (3/4 или 1/4 от 160), вычитаем из этого А и Б соответственно и умножаем эконом на х/2, а бизнес на х
Другие вопросы из категории
a.к компьютеру подключена флэш-память
Читайте также
натуральные числа A , B, где B>A. Напишите программу последовательность натуральных чисел от A до B, включающая A и B.
Пожалуйста помогите !!!!!!!!
2.Условный оператор(ветвление)
Нарисуйте блок-схему.Дано два числа.Верно ли, что он равны?
3.Циклы
Напишите программу на Паскале. Выведите на экран табицу умножения на 4 в виде 1+4=4,2+4=8,....9*4=36.
4.Одномерные массивы
Напишите программу на Паскале.Подсчитайте количество максимальных элементов массива А [1..12].
5.Двумерные массивы
Напишите программу на Паскале. создать массив случайны чисел В[1..6,1..6].Все элементы массива, расположенные выше главной диагонали сделать равными О.Вывести исходный и исправленный массивы.
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
Имеются данные о количестве полных лет трех призеров спартакиады. Напишите программу, выбирающую и выводящую возраст самого младшего призера.
б)Напишите программу, которая массив из 20 элементов заполнит неповторяющимися целыми числами и выведет на экран элементы с нечетными индексами.