Паскаль,составить программу!1.Дано слово,определить есть ли в нем буква а! Паскаль! (Ответить на вопрос да или нет)2.Дано предложение,определить длину последнего слова.
Паскаль,составить программу!1.Дано слово,определить есть ли в нем буква а! Паскаль! (Ответить на вопрос да или нет)
2.Дано предложение,определить длину последнего слова.
Гость
Ответ(ы) на вопрос:
Гость1.
var a,b:string;c:integer;
begin
readln (a);
b:='a';
c:=pos(b,a);
if c<>0 then writeln ('Есть буква а') else writeln ('Нет буквы а');
end.
Не нашли ответ?
Похожие вопросы