Question

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 грани.

Answer 1

Это паскаль попробуй на си перевести

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.

Answer 2

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.