В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География

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

Показать ответ
Ответ:
Nekomimi11
Nekomimi11
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);

}

}

}

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота