3. ¿Cómo interactuar con la IA?

3.4. Ejemplos de prompts

Salida:

Salida:

Salida:

Salida:

Salida:

Program letrasa;
Uses crt;
var cont:integer;
letra:char;
Begin
clrscr; riteln(‘Contador de as. Escribe una línea terminada en un punto’); writeln(‘__________________________________________________’);
cont:=0;
read(letra);
while (letra<>‘.’) ;
begin
if ((letra=‘a’) or (letra=‘A’)) then begin cont:=cont+1; end; read(letra);
end;
write(‘Número de as: ‘,cont); readkey;
end.

Salida:

Con esta corrección, el programa debería contar correctamente el número de caracteres «a» (minúsculas o mayúsculas) hasta que se encuentre con un punto para finalizar la entrada.