Программирование в паскале:
1.1 Даны 2 слова. Определить, какое из двух слов длиннее и на сколько.
1.2 Записано предложение. По последнему символу определить тип предложения. (повествовательное, вопросительное или восклицательное)
1.3 Поменять в слове первую и последнюю буквы
1.1 Даны 2 слова. Определить, какое из двух слов длиннее и на сколько.
1.2 Записано предложение. По последнему символу определить тип предложения. (повествовательное, вопросительное или восклицательное)
1.3 Поменять в слове первую и последнюю буквы
Answers & Comments
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.