Кубик с ребром 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.

unikkum22 unikkum22    3   27.09.2019 06:30    6

Ответы
ivanovali0109 ivanovali0109  08.10.2020 22:06

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);

}

}

}

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика