Напишите программу, которая позволяет ввести три вещественных числа и выводит на экран: разность целых частей первого и второго чисел; косинус удвоенного произведения первого на третье; сумму квадратов синуса второго числа и косинуса третьего. все вещественные числа должны быть выведены в форме с фиксированной точкой с двумя знаками после запятой; перед каждым вычисленным значением должны идти пояснительный текст и выражение.

Var a,b,c: real; begin read(a,b,c); writeln(int(a)-int(b)); writeln(cos(2*a*c): 3: 2); writeln(sqr(sin(b))+sqr(cos(c)): 3: 2); end.

Дан массив состоящий из n целых чисел. заменить каждый элемент массива с нечетным номером средним арифметическим индексов соседних элементов дан массив из 6 целых чисел. посчитать количество элементов, которые принадлежат отрезку [2; 5] деньги в количестве 10000 руб положены на текущий счет в сберегательный банк. прибыль составляет ежегодно 15%. через сколько лет сумма станет равной 15000 руб, если прибыль останется на текущем счете? и если получится то и вывести таблицу значений функции y=0.5x2-3x+5 на отрезке [a,b] с шагом h. значения a, b, h вводятся с клавиатуры все в паскале.

// на складе было n ящиков мыла, в течение 10 дней со склада отпускали ежедневно k ящиков мыла. сколько ящиков мыла осталось на складе? var n,k: real; begin      writeln('введите количество ящиков мыла завезенных на склад');   readln (n);   writeln ('укажите сколько ящиков мыла ежедневно отпускалось со склада');   readln (k);       n: =n-(10*k);     if (n< 0) then writeln ('вы ошиблись. на складе не было такого количества мыла')           else writeln ('через 10 дней на складе осталось ',n,' ящиков мыла'); end.