Вводишь А и Х- получаешь Y.
var
a,x,y:real;
begin
writeln('Введите A и X');
readln(a,x);
y:=(sqr(x)+sqr(a))/(1-sin(ln(sqr(x))));
writeln('Y = ',y);
<span>end.</span>
Для сего надо лишь умножить последнюю цифру на 3 и выделить кол-во единиц же
var
a: <em>integer</em>;
begin
readln(a);
writeln((a <em>mod </em>10 <em>*</em> 3) <em>mod</em>10);
<span>end.</span>
var x,n:integer;
begin
readln(n);
readln(x);
for i=:1 to n do
x:= (x-i);
end.
Если решение задачи будет не верно, извените значит надо писать более подробно.
Продолжительность звучания вычислим по формуле:
t=N/b*f
где t- время звукозаписи (сек.),N- Объем диска (бит),b- разрядность (бит),f- частота дискретизации (Гц или 1/сек.)
t=(700*1024*1024*8)/16*32000=11468,8 сек
t=191,15 мин.
Самый большой круг птица. в нём воробей и перелётная птица.в перелётной птице аист и ласточка