Предмет: Информатика,
автор: SadLeven
Помогите решить задачу
Приложения:

sudneva01:
а что за слово? сфотографируй всю страницу/вариант
Ответы
Автор ответа:
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
Предмет: Русский язык,
автор: vitaliyf878
Предмет: Английский язык,
автор: justplayerminecraft
Предмет: Физика,
автор: Павлуша9г