PascalABC.NET
begin
WriteAllText('File2.txt',
(integer.Parse(ReadAllText('File1.txt')) div 3).ToString)
end.
Объяснение:
Текстовый файл File1.txt содержит запись целого числа.
ReadAllText('File1.txt') считывает сдержимое файла в символьную строку,
integer.Parse( ) выделяет из нее целое целое число, div 3 выполняет деление на 3, результат при преобразуется к строке, на основе которой WriteAllText('File2.txt'( ) создает текстовый файл File2.txt.
Файлы должны находиться в той же папке, что и исходный текст программы, либо надо в именах явно указывать полный путь.
using System;
using static System.Console;
namespace ConsoleApp9
{
class Program
{
static void Main(string[] args)
{
double a, b, c, v, x, y;
Write("Input a: ");
a= double.Parse(ReadLine());
Write("Input b: ");
b = double.Parse(ReadLine());
Write("Input c: ");
c = double.Parse(ReadLine());
Write("Input x: ");
x = double.Parse(ReadLine());
Write("Input y: ");
y = double.Parse(ReadLine());
if (x < 3 && y < 0)
v = ((a + b + c) / 2) * Math.Min(x, Math.Min(y, (x + y) / (x - y)));
else if (x > 0 && y > 1)
v = Math.Max(x * x, y * y * y);
else
v = y * (a + b + c);
WriteLine("v=" + v.ToString());
ReadKey();
}
}
}
Поделитесь своими знаниями, ответьте на вопрос:
Сколько битов составляет 3/4 и 1/4 килобайта(с решением )
1/4 Кбайт = 1/4 *1024 байт = 1/4 * 1024 * 8 бит = 2048 бит