var x: real;
function f(x: real): real;
begin
if x < 0 then f:= ln(x)/(1 - x)
else if (0 <= x) and (x < pi) then f:= 10
else if (pi <= x) then f:= cos(6 * x);
end;
begin
readln(x);
writeln(f(x));
end.
Static void Main()
{
String str = Console.ReadLine();
Byte N = Byte.Parse(Console.ReadLine()),
i = 1;
while (i <= N)
{
Console.Write(str);
i++;
}
Console.ReadLine();
}
Бредовый вопросик...
Во-первых: если хочешь остаться с хорошей осанкой и зрением - выполняй технику безопасноти.
Во-вторых: если не хочешь, чтоб тебя током шибануло - выполняй технику безопасноти.
Простите за просторечие)))))
<em>1.</em>
var
i: integer;
A: array [1..20] of integer;
begin
randomize;
writeln('Массив: ');
for i:=1 to 20 do A[i]:=random(21)-10;
for i:=1 to 20 do write(A[i]:5);
writeln;
writeln('Каждый пятый эелемент массива: ');
for i:=1 to 20 do if i mod 5 = 0 then write(A[i]:5);
end.
<span>
</span><em>2.</em>
var
x,i: integer;
A: array [1..20] of integer;
begin
randomize;
writeln('Массив: ');
for i:=1 to 20 do A[i]:=random(11);for i:=1 to 20 do write(A[i]:5);
writeln;
writeln('Натуральные числа в диапазоне [5..10]: ');
for i:=5 to 10 do write(A[i]:5);
writeln;
x:=1;
writeln('Их произведение: ');
for i:=5 to 10 do x:=A[i]*x;
write(x:5);
end.
123.79.172.213
тупо соединяешь из вместе