//PascalABC.Net 3.2
function f(x:real):=1/(x*sqr(x)-2*x);
begin
write ('y=', f(readreal('Введите x: ')));
end.

Алгоритмический язык:
нач
ввод (x);
вывод (1/x^3-2x);
кон

0 0

4 года назад

Дано целое положительное трехзначное число.Напишите программу, позволяющую определить число, полученное выписыванием в обратном

S-v-e-t-y-a [7]

Var a,b:integer;
d:string;
begin
writeln('введите число');
readln(b);
Str (b, d);
for a:=length(d) downto 1 do begin
write(d[a]);
end;
writeln('');
<span>end.

</span>

0 0

4 года назад

Для каждого примера укажите объект, его свойство величину и её значение: а) рыжеволосый человек; б) семи килограммовый арбуз; в)

IOJIuaHa [3.9K]

А) Объект: человек;
Величина: цвет волос;
Значение: ражий.

б) Объект: арбуз;
Величина: вес;
Значение: семь килограмм.

в) Объект: чашка;
Величина: материал;
Значение: фарфор.

г) Объект: монитор;
Величина: диагональ;
Значение: семнадцать дюймов.

0 0

3 года назад