Question

помогите с информатикой, 2 задание на фото

Answer 1

 

Ответ на пункт а)

 

program zad1;

var s:string;

i, kol:integer;

begin

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

readln(s);

kol:= 0;

for i:= 1 to length(s) do

kol:= kol + 1;

writrln (kol);  

readln;

end.

Ответ на пункт б)

program zad2;  

var s:string;  

begin  

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

readln(s);  

if s[1] = s[length(s)] then  

writeln ('Совпадают')  

else  

writeln ('Не совпадают');  

end.

Ответ на пункт в)

program zad3;  

var s:string;  

kol:integer;  

begin  

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

readln(s);  

kol:=length(s);  

Writeln (s[1], s[2], s[kol]);  

end.

Ответ на пункт г)

program zad4;  

var s:string;  

begin  

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

readln(s);  

if odd(length(s) + 1) then  

writeln ('Чётное')  

else  

writeln ('Не чётное');  

end.