Run Code
|
API
|
Code Wall
|
Users
|
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
Please
log in
to post a comment.
BubbleSort (slimst)
Tri 1.0
(p,q,r)
BubbleSort (standaard)
NHATANH
checks if a number is exceptional
test34
codigo
матрица из шариков
08 Ariketa WHILE
Please log in to post a comment.