Нужно написать программу на СИ Написать программу, вычисляющую значение функции y=f(x). Значение величины x, вводимое пользователем с клавиатуры, должно проверяться на корректность, т.е. должно принадлежать указанному в задании диапазону [a, b]. В случае, если пользователь ввел такое значение х, при котором y=f(x)=0, вывести сообщение о том, что пользователь нашел корень уравнения. При решении задачи использовать конструкцию «Условный переход». Само уравнение-y = 0.1*x^2 – x ln x . Допустимый диапазон [a;b] для величины x:[1;2]
program numsum;
uses
SysUtils;
var
n, i, sn: Integer;
s: string;
begin
Write ('Введите четырехзначное число: ');
ReadLn (n);
n := Abs (n);
if (n > 9999) or (n < 1000) then begin
WriteLn ('Введенное число не четырехзначное');
ReadLn;
Exit;
end;
s := IntToStr (n);
sn := 0;
for i := 1 to Length (s) do
sn := sn + StrToInt (s [i]);
WriteLn ('Сумма цифр числа = ', sn);
if sn mod 5 = 0 then
WriteLn ('Сумма цифр делится на 5')
else
WriteLn ('Сумма цифр не делится на 5');
ReadLn;
end.
AutoHotkey позволяет автоматизировать задачи пользователя Windows таким образом, какой невозможен или затруднён в других языках программирования. Кроме того, этот язык компактен, самодостаточен и работает на всех версиях Windows «прямо из коробки».