1.if условие then команды end
Объяснение:
2.if условие then команды1 else команды2 end
if условие1
then команды1
else if условие2 then команды2
else if условие3 then команды3
...
else if условиеN+1 then командыN+1
else команды end;
3.if условие1 then команды1
elsif условие2 then команды2
elsif условие3 then команды3
...
4.else команды end;
5.If условие
then
begin
операторы;
end
else
begin
операторы;
end;
6.if условие
...
fi;
Не знаю на каком языке надо было, но сделал на языке 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.
