<h2>Код</h2>
#include <iostream>
#include <fstream>
#include <math.h>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
int x = 0, y = 0;
double R = 0;
cout << "y = "; cin >> y;
cout << "x = "; cin >> x;
R = abs(pow(pow(sin(y), 2.0) + 6.835, 1.0/2) + exp(x));
ofstream outputResult("output.txt");
outputResult << R;
outputResult.close();
}
<h2>Проверка</h2>
[Скриншот]
Файл сохраняется в папке с файлом проекта.
function Pow(A, St: Integer) : Integer - объявляется функция Pow, которая принимает 2 аргумента A и St типа integer, а также сама функция возвращает значение integer
Далее объявляется переменная I типа Integer
begin - начало тела функции
Result := 1; - переменной Result присваивается значение 1
Далее идёт ветвление:
Если St = 0 , то переменной Result присваивается значение 1
В противном случае идёт цикл от I = 1 до St, где каждый шаг увеличивает переменную Result в A раз
словом end; заканчивается тело функции
Короче говоря, данная функция возводит число A в степень St
56=101110 в двоичной, Ответ:4 единицы.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var c:=ReadlnChar('Введите с, о, д или г:');
case c of
'с':Writeln('снег');
'о':Writeln('облачно');
'д':Writeln('дождь');
'г':Writeln('гололедица');
else Writeln('неверный ввод')
end
end.
