Nə qədər dəyişən?#4891

Nə qədər dəyişən?

1 saniyə
64 meqabayt
Asan

Kiçik oğlan Petya Pascal dilində proqramlaşdırmağı çox sevir. Təəssüf ki, son zamanlar o, çoxlu dəyişənlər istifadə etdiyini fərq etməyə başlayıb. O qədər çox ki, hər proqramda neçə dəyişən istifadə etdiyini düzgün hesablaya bilmir.

Buna görə də, o sizdən bu çətin işdə ona kömək edəcək bir proqram yazmağınızı xahiş edir.

Petya hələ Pascal dilini yaxşı bilmədiyi üçün yalnız dörd standart tipdən istifadə edir: boolean, char, double, integer.

Giriş

Giriş faylında bir neçə dəyişən elanları olan sətirlər var. Giriş faylının hər bir sətri bir tipin dəyişən elanıdır. Bütün elanlar Pascal dilinin sintaksis baxımından düzgündür, dəyişən adları təkrarlanmır, elanlarda yalnız standart tiplərdən istifadə olunur: boolean, char, double, integer.

Formal olaraq hər bir elan aşağıdakı formada olur:

identifikator {',' identifikator } ':' tip ';'

burada tip — boolean, char, double, integer sətirlərindən biridir; identifikator — hərflərdən, rəqəmlərdən və ya _ simvollarından ibarət olan və hərf və ya _ simvolu ilə başlayan bir sətirdir.

tip və identifikator sətirləri, həmçinin :, ;, və , simvolları bölünməz elementlərdir, onların arasında (həmçinin əvvəl və sonra) istənilən sayda boşluq ola bilər.

Giriş faylında sətirlərin sayı -dən çox deyil, hər sətirdə dəyişəndən çox deyil və hər bir dəyişənin adı simvoldan uzun deyil.

Çıxış

Çıxış faylında dörd sətir çıxarılmalıdır, aşağıdakı formatda:

boolean: boolean tipli elan edilmiş dəyişənlərin sayı

char: char tipli elan edilmiş dəyişənlərin sayı

double: double tipli elan edilmiş dəyişənlərin sayı

integer: integer tipli elan edilmiş dəyişənlərin sayı

Qeyd edək ki, iki nöqtə işarəsi ilə dəyişənlərin sayı arasında bir boşluq olmalıdır.

Nümunələr

Nümunə 1

Loading
Loading