Про табулировать функцию у = f(x) на отрезке [0; i] с шагом h — 0,1i, где i — номер варианта. Результаты вычислений вывести на экран в виде таблицы пар чисел х, у. Выполнить дополнитель¬но задачи своего варианта поиска данных по некоторому крите¬рию (признаку). Если искомых данных нет, вывести об этом сообщение.
Задачу решить в двух вариантах: с использованием оператора с параметром (For) и с использованием одного из операторов цикла с условием (While или Repeat).
Вычислить сумму квадратов и произведение всех значений функции у, для которых справедливо неравенство 2,41 < у < 5.
var
n, s: integer;
begin
Write('Введите трехзначное число: ');
Readln(n);
s := (n div 100) + ((n mod 100) div 10) + (n mod 10);
if (s in [10..99]) then Writeln('Сумма цифр двухзначная (', s, ')')
else Writeln('Сумма цифр не двухзначная (', s, ')')
end.
Тестовое решение:
Введите трехзначное число: 269
Сумма цифр двухзначная (17)
Введите трехзначное число: 125
Сумма цифр не двухзначная (8)
2
var
n, d1, d3: integer;
begin
Write('Введите трехзначное число: ');
Readln(n);
d1 := (n div 100);
d3 := (n mod 10);
if d1 > d3 then Writeln('Первая цифра больше третьей')
else if d1 = d3 then Writeln('Первая цифра равна третьей')
else Writeln('Первая цифра меньше третьей')
end.
Тестовое решение:
Введите трехзначное число: 739
Первая цифра меньше третьей