Var a,b:real;
x:real;
begin
write('введите концы отрезка a,b a<b');
read(a,b);
write('введите число х');
read(x);
if (x>=a) and (x<=b) then write(' принадлежит') else write(' не принадлежит');
end.
Ответ:
42 (число 11), 99 (число 30), 10050 (число 55)
Объяснение:
Написал код по этому алгоритму и посмотрел, какие из представленных чисел получаются в итоге.
DECLARE
b NUMBER;
c NUMBER;
d NUMBER;
e NUMBER;
BEGIN
FOR a IN 10..99 LOOP
IF length(a) = 2 THEN
b := power(substr(a, 1, 1),2); -- отрезаем первый разряд и возводим в квадрат
c := power(substr(a, 2, 1),2); -- отрезаем второй разряд и возводим в квадрат
d := b + c;
e := power(substr(a, 1, 1) + substr(a, 2, 1),2);
IF d > e THEN dbms_output.put_line(d || e);
ELSE dbms_output.put_line(e || d);
END IF;
END IF;
END LOOP;
END;
#include <iostream>#include <iomanip>#include <ctime>
using namespace std;
int main(){ setlocale(LC_ALL, "RUSSIAN"); const int N = 10; int arr[N]; int K, L, sum = 0, sumexcl = 0; srand(time(NULL)); for (int i = 0; i < N; i++) { arr[i] = rand() % 10; sum += arr[i]; } cout << "Введите K >> "; cin >> K; cout << "Введите L >> "; cin >> L; for (int i = 0; i < N; i++) { cout << arr[i] << " "; if((i>=K) && (i<=L)) sumexcl += arr[i]; } sum -= sumexcl; cout << "Результат: " << sum << endl; system("pause");}
Var a,b:real;
Begin
Write('Введите два числа: ');
ReadLn(a,b);
if a > b then WriteLn(a*3)
else WriteLn(b*3);
Write('Введите три числа: ');
Read(a,b);
if a > b then a:=b;
ReadLn(b);
if a > b then a:=b;
WriteLn(a-10);
End.
Пример работы программы:
Введите два числа: 1 3
9
Введите три числа: 2 1 3
-9
Ответ:
1)2 и 10
2)4 и 3
3)4 и 8
4)2 и 4
Объяснение:
Правильный ответ третий. (системы исчисления 2 и 3 не могут реализовать это число).
