Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Урок 8 задача 6 символьный тип данных
{Урок 8 задача 6} var sign, temp : char; word_count : integer; begin temp := ','; word_count := 0; while sign <> '.' do begin read(sign); if (upcase(sign) = 'A') and (temp = ',') then word_count := word_count + 1; temp := sign; end; writeln (word_count); end.
run
|
edit
|
history
|
help
0
How many letters?
Trabajo pascal
real vs integer
jhjj
Zadanie 3 a
La calculatrice
P170808B
10_4bhr.pas
practica 5 ejercicio 3
Вычисление cos(x) с помошью ряда Тейлора