Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
Урок 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.
факторизация числа
135
zad27-notoptimal
Kelipatan
08 repeat
VINICIUS ELIAS SILVEIRA 600625519
[DE/GER] Caesar Chiffre (Entschlüsseln)
sandogh 1
135
Ariketa 06
Please log in to post a comment.