25 апреля, 21:52

Кубик с ребром N см покрасили и разрезали на кубики с ребром 1 см. При этом появились такие, у которых окрашено разное количество граней. Например, если N = 3, то после разрезания будет 8 кубиков, у которых окрашено три грани, 12 с двумя гранями, 6 с одной, а один кубик будет совсем неокрашенный. Составьте программу, которая бы определяла, сколько кубиков с каждой возможным количеством окрашенных граней.

Нужно перевести этот Pascal код в C#

program cubes;

uses crt;

var x, x1, x2, x3, x0, y, z, k, n:integer;

s:string; f, g:text;

begin

assign (f,'cubes. dat') ;

reset (f) ;

readln (f, y) ;

close (f) ;

x3:=8;

x1:=sqr (y-2) * 6;

x0: = (sqr (y-2)) * (y-2) ;

x2: = (y-2) * 4*2 + (y-2) * 4;

assign (g,'cubes. sol') ;

rewrite (g) ;

writeln (g,'0/', x0,' 1/', x1,' 2/', x2,' 3/', x3) ;

close (g) ;

end.

0
Ответы (1)
  1. 25 апреля, 22:46
    0
    using System;

    using System. IO;

    using System. Linq;

    namespace ConsoleApp

    {

    class Program

    {

    static void Main (string[] args)

    {

    var y = Convert. ToInt32 (File. ReadAllText ("cubes. dat"). First (). ToString ()) ;

    int x3 = 8;

    int x1 = (int) Math. Pow (y - 2,2) * 6;

    int x0 = (int) Math. Pow (y - 2,2) * (y - 2) ;

    int x2 = (y - 2) * 4 * 2 + (y - 2) * 4;

    File. WriteAllText ("cubes. sol", "0/" + x0 + " 1/" + x1 + " 2/" + x2 + " 3/" + x3) ;

    }

    }

    }
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Кубик с ребром N см покрасили и разрезали на кубики с ребром 1 см. При этом появились такие, у которых окрашено разное количество граней. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы