Паскаль, составить программу! 1. Дано слово, определить есть ли в нем буква а! Паскаль! (Ответить на вопрос да или нет)

2. Дано предложение, определить длину последнего слова.

Question

Информатика

Потапий

16 августа, 06:50

Паскаль, составить программу! 1. Дано слово, определить есть ли в нем буква а! Паскаль! (Ответить на вопрос да или нет)

2. Дано предложение, определить длину последнего слова.

+4

Ответы (1)

Знаете ответ?

Сократ · Answer 1

1.

var a, b:string; c:integer;

begin

readln (a) ;

b:='a';

c:=pos (b, a) ;

if c0 then writeln ('Есть буква а') else writeln ('Нет буквы а') ;

end.