Ответ:
def y(x, a):
if x < 3:
return a*x-1
else:
return x+2*a
a = int(input())
x = int(input())
res = y(x, a)
print('y(x={}, a={}) = {}'.format(x, a, res))
Var
s1,s2,s3,s4:string;
k:integer;
begin
writeln('Введите 1 слово:');
readln(s1);
writeln('Введите 2 слово:');
readln(s2);
writeln('Введите 3 слово:');
readln(s3);
writeln('Введите 4 слово:');
readln(s4);
writeln('Список одинаковых слов');
if (s1=s2)or(s1=s3)or(s1=s4) then begin k:=1; writeln(s1); end;
if (s2=s3)or(s2=s4) then begin k:=1; writeln(s2); end;
if s3=s4 then begin k:=1; writeln(s3); end;
if k=0 then writeln('Одинаковых слов нет');
end.
Var A,B,N:integer;
S:real;
Begin
A:=0;
B:=1;
Write('N = ');
ReadLn(N);
if N<0 then Write('Введите положительное число')
else
Begin
While A<N do
Begin
S:=S+A;
A:=A+B;
Swap(A,B);
Write(A,' ');
End;
WriteLn;
WriteLn('S = ',S)
End;
End.
Пример:
N = 10000
1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765 10946
S = 17710
Примечание:
Условие немного некорректно, т.к.
1+1+2+3+5+8+13+21+34+55+89+144+233+377+610+987+1597+2584+4181+6765 = 17710.
<em>VAR</em>
<em> a,b,c: LongInt;</em>
<em>BEGIN</em>
<em> Read(a,b,c);</em>
<em> </em>
<em> if (a*b = 1)or(a*c = 1)or(b*c = 1) then Write('ДА')</em>
<em> else Write('НЕТ');</em>
<em>END.</em>
Чтобы программировать и создавать программы