X = 42:3 = 14
X = 14+17 = 31
Поскольку - нечетное
X = 31+19 = 50 X = 50:2 = 25
Y = 25*5=125
Результат 125
Var
x: real;
begin
readln(x);
write(sqrt((2 * x + 3) / (x - 4)));
end.
D = C = 4;
C = B = 6;
B = A = 3;
переменная А значение не меняла.
Ответ: А = 3, В = 3, С = 6, D = 4.
<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadSeqInteger('Вводите числа:',ReadInteger('N='))
.Where(x->Abs(x).Between(10,99)).Count)
end.
<u>Пример</u>
N= 5
Вводите числа: 23 -4 100 -42 16
3
begin
var k:=ReadInteger('K=');
Writeln(ReadSeqInteger('Вводите трехзначные числа:',ReadInteger('N='))
.Where(m->Abs((m mod 10)*(m div 100)*(m div 10 mod 10))=k).Count)
end.
<u>Пример</u>
K= 8
N= 10
Вводите трехзначные числа: 142 712 426 -222 318 916 107 932 -116 473
2