Question

Программирование в паскале: 1.1 даны 2 слова. определить, какое из двух слов длиннее и на сколько. 1.2 записано предложение. по последнему символу определить тип предложения. (повествовательное, вопросительное или восклицательное) 1.3 поменять в слове первую и последнюю буквы

Answer 1

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.