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
Урок 3 не из учебника. U-контур и функция sign (x)
Вычисление площади фигуры, ограниченной осью абцисс и функцией
bbbrandomchar_0.1
[DE/GER] Vigenere Chiffre (Verschlüsselung)
aaaaa
1
Chouain
0
practica 11 ejercicio 4
НОД через функцию