55 , на c++.любимые фигуры антона — правильные многогранники. напомним, что правильных многогранников всего пять видов: тетраэдр. у тетраэдра 4 треугольных грани.куб. у куба 6 квадратных граней.октаэдр. у октаэдра 8 треугольных граней.додекаэдр. у додекаэдра 12 пятиугольных граней.икосаэдр. у икосаэдра 20 треугольных граней.у антона есть целая коллекция из n многогранников. однажды ему стало интересно, сколько суммарно граней у всех фигур в его коллекции. антону найти это число! входные данныев первой строке входных данных находится целое число n (1 ≤ n ≤ 200 000) — количество многогранников в коллекции у антона.в следующих n строках входных данных находится по одной строке si — название i-го многогранника в коллекции антона. строка может иметь следующий вид: «tetrahedron» (без кавычек), если i-й многогранник в коллекции антона — тетраэдр.«cube» (без кавычек), если i-й многогранник в коллекции антона — куб.«octahedron» (без кавычек), если i-й многогранник в коллекции антона — октаэдр.«dodecahedron» (без кавычек), если i-й многогранник в коллекции антона — додекаэдр.«icosahedron» (без кавычек), если i-й многогранник в коллекции антона — икосаэдр.выходные данныевыведите одно целое число — суммарное число граней у всех многогранников в коллекции антона.примеры: входные данные: 4 данные: 42входные данные: 3 данные: 28примечание: в первом примере у антона есть один икосаэдр, один куб, один тетраэдр и один додекаэдр. у икосаэдра 20 граней, у куба — 6, у тетраэдра — 4 и, наконец, у додекаэдра — 12. итого 20 + 6 + 4 + 12 = 42 грани.
Это паскаль попробуй на си перевести
var
a:string;
n,k,i:integer;
begin
readln(n);
for i:=1 to n do begin
readln(a);
case a[1] of
'T':k:=k+4;
'C':k:=k+6;
'O':k:=k+8;
'D':k:=k+12;
'I':k:=k+20;
end;
end;
writeln(k);
end.
var
a:string;
n,k,i:integer;
begin
readln(n);
for i:=1 to n do begin
readln(a);
case a[1] of
'T':k:=k+4;
'C':k:=k+6;
'O':k:=k+8;
'D':k:=k+12;
'I':k:=k+20;
end;
end;
writeln(k);
end.