Run Code
|
API
|
Code Wall
|
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
Opdracht_1
Perimetro y Area (con validaciones)
сумма чётных и нечётных чисел
JONES
BubbleSort (standaard)
Hello World
Power for integers
JOAO PEDRO REIS PEREIRA CORREA 600622602
ruteo
Андреева Урок 6 задача 8 (1531)