• Вопрос по информатике:

    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

    Icosahedron

    Cube

    Tetrahedron

    Dodecahedron

    Выходные данные:

    42


    Входные данные:

    3

    Dodecahedron

    Octahedron

    Octahedron

    Выходные данные:

    28


    Примечание:

    В первом примере у Антона есть один икосаэдр, один куб, один тетраэдр и один додекаэдр. У икосаэдра 20 граней, у куба — 6, у тетраэдра — 4 и, наконец, у додекаэдра — 12. Итого 20 + 6 + 4 + 12 = 42 грани.

    • Автор:

      connor

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

    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.

    • Отвечал:

      mindydyer
    • 0

    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.

    • Отвечал:

      robertuimw
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска