Предмет: Информатика, автор: SadLeven

Помогите решить задачу

Приложения:

sudneva01: а что за слово? сфотографируй всю страницу/вариант
SadLeven: слово пользователь должен будет сам вводить

Ответы

Автор ответа: elenaklon
0

var s:string;

begin

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

readln (s);

if length(s) mod 2 = 0 then writeln ('Чётное (',length(s),')')

else writeln ('Нечётное (',length(s),')');

write (s[1],' ',s[3],' ',s[length(s)]);

end.

Приложения:
Похожие вопросы
Предмет: История, автор: cobakacytylaya84
Предмет: Английский язык, автор: justplayerminecraft