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

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

Question

Информатика

Добрыня

22 сентября, 05:34

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

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

+1

Ответы (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.