Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
practica 3 ejercicio 8
//fpc 3.0.4 program HelloWorld; function verif(c1,c2:char):boolean; begin verif:= (c1 = 'p')and(c2 = 'a'); end; var car,ultcar:char;cant:integer;v:boolean; begin read(car);cant:=0; while car <> '.' do begin v:=false; while (car <> '.') and (car <> ' ')do begin ultcar:= car; read(car); if verif(ultcar,car) then v:=true; end; if v then cant:=cant+1; while car = ' ' do read(car); end; writeln('la cantidad de palabras que tienen "p" seguida de "a" son ',cant); end.
run
|
edit
|
history
|
help
1
Please
log in
to post a comment.
Escribir numeros a palabras hasta 4 digitos
TID_Calculator
test09
Trabajo pascal
Huong11a2@
Prvi zadatak vezbe pokazivaci
test22
пи методом монте карло на единичной окружности
two number sum
zad27-notoptimal
Please log in to post a comment.