Не знаю на каком языке надо было, но сделал на языке Pascal
1.
var s:string;
k,i:integer;
begin
readln(s);
k := length(s);
writeln(k);
end.
2.
var a,b:string;
i:integer;
begin
writeln('Введите первую фамилию');
readln(a);
writeln('Введите вторую фамилию');
readln(b);
i:=length(a)-length(b);
if i>0 then
writeln('Первая фамилия длиннее')
else writeln('Вторая фамилия длиннее')
end.
еще как вариант второго номера:
var a,b:string;
i:integer;
begin
writeln('Введите первую фамилию');
readln(a);
writeln('Введите вторую фамилию');
readln(b);
i:=length(a)-length(b);
if i>0 then
writeln('Фамилия ', a, ' длиннее фамилии ', b)
else writeln('Фамилия ', b, ' длиннее фамилии ', a)
end.
# Пусть белый цвет это false и соответственно черный true
эта функция определяет цвет по ее координатам, которые не больше числа 8
def checkColor(x, y):
assert x <= 8 and y <= 8
color = None
if x % 2 == 0:
if y % 2 == 0:
color = True
else:
color = False
else:
if y % 2 == 0:
color = False
else:
color = True
return color
# Задаем координаты первой и второй позиции
k, l, m, n = map(int, input().split())
if checkColor(k, l) == checkColor(m, n):
print('YES')
else:
print('NO')
Объяснение:
// Внимание! Если программа не работает, обновите версию!
procedure Fib(n:integer; var r:sequence of integer);
begin
if n<1 then exit; // нечего глупости задавать
case n of
1: r:=Seq(1);
2: r:=Seq(1,1);
else begin
r:=Seq(1,1);
var (p1,p2):=(1,1);
var p:integer;
loop n-2 do begin
p:=p1+p2;
r:=r+Seq(p);
(p1,p2):=(p2,p)
end
end
end
end;
begin
var s:sequence of integer;
var n:=ReadInteger('n=');
Fib(n,s);
s.Println
end.
Пример
n= 8
1 1 2 3 5 8 13 21