Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Программирование в паскале:
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.