Программирование в паскале:

1.1 Даны 2 слова. Определить, какое из двух слов длиннее и на сколько.

1.2 Записано предложение. По последнему символу определить тип предложения. (повествовательное, вопросительное или восклицательное)

1.3 Поменять в слове первую и последнюю буквы

var

a, b: string;

c: integer;

begin

writeln ('Введите первое слово: ') ;

readln (a) ;

writeln ('Введите второе слово: ') ;

readln (b) ;

c : = length (a) - length (b) ;

if c = 0 then writeln ('Длины слов равны')

else if c > 0 then writeln ('Первое слово длиннее второго на ', c)

else writeln ('Второе слово длиннее первого на ', - c)

end.

2)

var a: string;

begin

writeln ('Введите предложение: ') ;

readln (a) ;

case a[length (a) ] of

'.': writeln ('Предложение повествовательное') ;

'!': writeln ('Предложение восклицательное') ;

'?': writeln ('Предложение вопросительное') ;

end;

end.

3)

var

a: string;

t: char;

begin

writeln ('Введите слово: ') ;

readln (a) ;

t : = a[1];

a[1] : = a[length (a) ];

a[length (a) ] : = t;

writeln ('Полученное слово: ', a)

end.