Var n:integer;
begin
write('n = ');
readln(n);
if n mod 2 = 0
then n:=3*n else n:=2*n;
writeln('n = ',n);
end.
Пример:
n = 7
n = 14
Var x,y: real;
begin
write(' x = '); readln(x);
if x<0 then y:=sqr(x)*x+2
else y:=sqrt(x);
writeln(' y = ',y:6:4);
end.
<span>
</span>
Просто подставляем
Для начала узнаем А4, где написанно, что оно равно B1+B2=1+2=3
A4=3
A1=A4-B1=3-1=2
A2=A1+2=2+2=4
A3=A2+B1=4+1=5
Соответствующая таблица находится под номером 3
Ответ: 3
program raf105;
var i,n: integer;
begin
write('N = ');
readln(n);
for i:=1 to n do
write(i,' ')
end.
<h3><u>PascalABC 3.4.2</u></h3>
Var a,b,c,z:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('c = ');
ReadLn(c);
z:=a;
if z < b then z:=b;
if z < c then z:=c;
WriteLn(z*z);
End.