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

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

Question

Альбертина

11 декабря, 05:03

+5

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