public class Test { public static void Main() { int n, a, b; Console.Write("Введите номер задачи:\n"); Console.Write("1 - вычисление максимального числа;\n"); Console.Write("2 - вычисление минимального числа;\n"); Console.Write("3 - вычисление суммы чисел.\n"); Console.Write("4 - вычисление произведения чисел.\n"); n = int.Parse(Console.ReadLine()); Console.Write("Введите два числа:\n"); a = int.Parse(Console.ReadLine()); b = int.Parse(Console.ReadLine()); switch (n) { case 1 : if (a>b) Console.Write("max = {0}",a); else Console.Write("max = {0}",b); break; case 2 : if (a<b) Console.Write("min = {0}",a); else Console.Write("min = {0}",b); break; case 3: Console.Write("S = {0}",a+b); break; case 4: Console.Write("П = {0}",a*b); break; } } }
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var x:=ReadInteger('Введите трехзначное число:'); var (a,b,c):=(x div 100,x div 10 mod 10,x mod 10); if b+c<>0 then if x mod (10*b+c)=0 then begin Writeln('Вычеркнуть первую цифру (',a,')'); Exit end else if a+c<>0 then if x mod (10*a+c)=0 then begin Writeln('Вычеркнуть вторую цифру (',b,')'); Exit end else if a+b<>0 then if x mod (10*a+b)=0 then begin Writeln('Вычеркнуть третью цифру (',c,')'); Exit end; Writeln('Нет решения') end.
public class Test
{
public static void Main()
{
int n, a, b;
Console.Write("Введите номер задачи:\n");
Console.Write("1 - вычисление максимального числа;\n");
Console.Write("2 - вычисление минимального числа;\n");
Console.Write("3 - вычисление суммы чисел.\n");
Console.Write("4 - вычисление произведения чисел.\n");
n = int.Parse(Console.ReadLine());
Console.Write("Введите два числа:\n");
a = int.Parse(Console.ReadLine());
b = int.Parse(Console.ReadLine());
switch (n) {
case 1 :
if (a>b) Console.Write("max = {0}",a);
else Console.Write("max = {0}",b);
break;
case 2 :
if (a<b) Console.Write("min = {0}",a);
else Console.Write("min = {0}",b);
break;
case 3:
Console.Write("S = {0}",a+b);
break;
case 4:
Console.Write("П = {0}",a*b);
break;
}
}
}
Пример:
Введите номер задачи:
1 - вычисление максимального числа;
2 - вычисление минимального числа;
3 - вычисление суммы чисел.
4 - вычисление произведения чисел.
4
Введите два числа:
5
8
П = 40
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ReadInteger('Введите трехзначное число:');
var (a,b,c):=(x div 100,x div 10 mod 10,x mod 10);
if b+c<>0 then
if x mod (10*b+c)=0 then begin
Writeln('Вычеркнуть первую цифру (',a,')');
Exit
end
else
if a+c<>0 then
if x mod (10*a+c)=0 then begin
Writeln('Вычеркнуть вторую цифру (',b,')');
Exit
end
else
if a+b<>0 then
if x mod (10*a+b)=0 then begin
Writeln('Вычеркнуть третью цифру (',c,')');
Exit
end;
Writeln('Нет решения')
end.