Question

решите пожалуйста задания которые сможете ​

Answer 1

Ответ:

Задание 1. фото 1

Задание 2.

program z2;

var

 s: string;

begin

 writeln('Как Вас зовут?');

 readln(s);

 s :='Привет, ' + s + '!';

 writeln(s)

end.

Задание 3.

program z3;

var

 s1, s2: string;

begin

 readln(s1);

 readln(s2);

 if s1 = s2 then writeln('Да')

 else writeln('Нет')

end.

Задание 4.

program z4;

var

 s1,s2:string;

begin

 readln(s1);

 readln(s2);

 if s1<s2 then writeln (s1,' ',s2)

 else writeln (s2,' ',s1)

end.

Объяснение:

фото