var
x: <em>real </em>:= 1;
begin
while (x <= 13) do
begin
writeln('y(', x, ') = ', ln(cos(x)));
x += 0.4;
end;
<span>end.</span>
В скобках даётся номер строки и столбца. По данной таблице Вы должны определить предложение. Начнём:
(1; 1) - Бит
(2; 3) - - (символ дефиса)
(2; 5) - это
(3; 2) - один
(2; 1) - или
(1; 3) - ноль
Бит - это один или ноль.
Здесь, скорее, подойдёт пословица (2), так как она значит, что ситуация неопределённая (или то, или это)
<h2>Ответ</h2>
2
Вроде здесь уже решал такое :)
//Pascal
var
n, a, b, c: integer;
begin
n := 1;
repeat
repeat
writeln(' Ведите стороны A,B,C ', n, ' - треугольника');
readln(a, b, c);
until ((a > 0) and (b > 0) and (c >0)) and ((a + b) >= c);
writeln('Периметр равен ',a + b + c);
n := n + 1;
until n > 25;
end.
var
a:array[1..35] of integer;
b,c,d:integer;
i:real;
Begin
for b:=1 to 35 do
a[b]:=random(49)+132;
for b:=1 to 35 do
write(a[b],' ');
writeln;
for b:=1 to 35 do
if a[b]>159 then c:=c+1;
for b:=1 to 35 do
if a[b] mod 3=0 then write(b,' ');
writeln;
for b:=1 to 35 do
if a[b]>d then d:=a[b];
writeln(d);
for b:=1 to 35 do
i:=i+a[b];
i:=i/35;
writeln('Средний рост: ',i:0:3);
end.