Напишите прог- рамму, которая переводит цифровую систему Отметок словесную. Например, если пользователь ввел оценку «5», на экран выводится словесная отметка «Пятерка»
Using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Threading.Tasks;
namespace СиШарп { class Program { static void Main(string[] args) { Console.Write("a = "); double a = double.Parse(Console.ReadLine()); Console.Write("b = "); double b = double.Parse(Console.ReadLine()); Console.Write("c = "); double c = double.Parse(Console.ReadLine()); if (a > b) a = b; if (a > c) a = c; Console.WriteLine("Min = {0}",a); Console.ReadKey(); } } }
// PascalABC.NET 3.2, сборка 1467 от 02.06.2017 // Внимание! Если программа не работает, обновите версию!
begin var s:=ReadlnString('>'); var k:=s.Length mod 4; if k>0 then s:=(4-k)*'0'+s; var a:=s.Batch(4).Select(c->c.JoinIntoString('')); foreach var t in a do case t of '0000':Write('0'); '0001':Write('1'); '0010':Write('2'); '0011':Write('3'); '0100':Write('4'); '0101':Write('5'); '0110':Write('6'); '0111':Write('7'); '1000':Write('8'); '1001':Write('9'); '1010':Write('A'); '1011':Write('B'); '1100':Write('C'); '1101':Write('D'); '1110':Write('E'); '1111':Write('F'); end; Writeln end.
Пример > 110101111010101100010101110101101011011011 35EAC575ADB
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace СиШарп
{
class Program
{
static void Main(string[] args)
{
Console.Write("a = ");
double a = double.Parse(Console.ReadLine());
Console.Write("b = ");
double b = double.Parse(Console.ReadLine());
Console.Write("c = ");
double c = double.Parse(Console.ReadLine());
if (a > b) a = b;
if (a > c) a = c;
Console.WriteLine("Min = {0}",a);
Console.ReadKey();
}
}
}
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('>');
var k:=s.Length mod 4;
if k>0 then s:=(4-k)*'0'+s;
var a:=s.Batch(4).Select(c->c.JoinIntoString(''));
foreach var t in a do
case t of
'0000':Write('0');
'0001':Write('1');
'0010':Write('2');
'0011':Write('3');
'0100':Write('4');
'0101':Write('5');
'0110':Write('6');
'0111':Write('7');
'1000':Write('8');
'1001':Write('9');
'1010':Write('A');
'1011':Write('B');
'1100':Write('C');
'1101':Write('D');
'1110':Write('E');
'1111':Write('F');
end;
Writeln
end.
Пример
> 110101111010101100010101110101101011011011
35EAC575ADB