Конвертировать с Pascal на C# - C# (183214)

Узнай цену своей работы

Формулировка задачи:

Конвертировать с Pascal на C# программу ниже
var x, max7, max, R, R1, count: integer;
begin
  max:= 0; max7:= 0;  
  count:= 0;
  while True do begin
    read(x);
    if x = 0 then break;
    Inc(count); 
    if (x mod 7 = 0) and (x mod 49 <> 0) and
       (x > max7) then max7:= x;
    if (x mod 7 <> 0) and (x > max) then max:= x;      
  end;
  read(R);
  R1:= max7*max;
  if R1 = 0 then R1:= 1;
  writeln('Введено чисел: ', count);
  writeln('Контрольное значение: ', R );
  writeln('Вычисленное значение: ', R1);
  if R1 = R then
       writeln('Значения совпали')
  else writeln('Значения не совпали')
end.

Решение задачи: «Конвертировать с Pascal на C#»

textual
Листинг программы
using System;
 
namespace CodeConversion
{
    public class CSharpFromPascal
    {
        public static void Main(string[] args)
        {
            int x = 0, max = 0, max7 = 0, R = 0, R1 = 0, count = 0;
            
            while (true)
            {
                x = int.Parse(Console.ReadLine());
                if (x == 0) break;
                
                count++;
                
                if (((x % 7) == 0) && ((x % 49) != 0) && (x > max7))
                {
                    max7 = x;
                }
                if (((x % 7) != 0) && (x > max))
                {
                    max = x;
                }
            }
            
            R = int.Parse(Console.ReadLine());
            R1 = max7 * max;
            if (R1 = 0) R1 = 1;
            
            Console.WriteLine("Введено чисел: {0}", count);
            Console.WriteLine("Контрольное значение: {0}", R);
            Console.WriteLine("Вычисленное значение: {0}", R1);
            
            if (R1 == R)
                Console.WriteLine("Значения совпали");
            else
                Console.WriteLine("Значения не совпали");
        }
    }
}

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4.133 из 5