var
x1, x2, x3:real;
begin
write('x1 = '); readln(x1);
write('x2 = '); readln(x2);
write('x3 = '); readln(x3);
if x1 < x2 then
if x1 < x3 then
writeln('минимальным является элемент х1 = ', x1)
else
writeln('минимальным является элемент х3 = ', x3)
else
if x2 < x3 then
writeln('минимальным является элемент х2 = ', x2)
else
writeln('минимальным является элемент х3 = ', x3);
end.
7 бит ииииииииии ето точно
var i,s:integer;
Begin
s:=25;
for i:=26 to 70 do s:=s*i;
writeln(s);
end.
Нажми, что
Ответ:
<em><u>1</u></em><em><u>5</u></em>
Объяснение:
После того, как цикл выполнится 8 раз, к i прибавится два 8 раз. Я выбираю 15, т.к:
- 0+2=2
- 2+2=4
- 4+2=6
- 6+2=8
- 8+2=10
- 10+2=12
- 12+2=14
- 14+2=16
14<15? Да => цикл выполнится. А 16<15? Нет => цикл остановится. Поэтому 15 - минимальное из возможных. 16 тоже подойдет, но нас просят <u>м</u><u>и</u><u>н</u><u>и</u><u>м</u><u>а</u><u>л</u><u>ь</u><u>н</u><u>о</u><u>е</u><u>.</u>
Var s, x, y: real;
begin write('введите х у:'); read(x, y); s := (x - sqr(y)) / (sqr(x) + sqr(y)) + x * y; s := Trunc(s); writeln('s:', s);end