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

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

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

Конвертировать с Pascal на C# программу ниже
Листинг программы
  1. var x, max7, max, R, R1, count: integer;
  2. begin
  3. max:= 0; max7:= 0;
  4. count:= 0;
  5. while True do begin
  6. read(x);
  7. if x = 0 then break;
  8. Inc(count);
  9. if (x mod 7 = 0) and (x mod 49 <> 0) and
  10. (x > max7) then max7:= x;
  11. if (x mod 7 <> 0) and (x > max) then max:= x;
  12. end;
  13. read(R);
  14. R1:= max7*max;
  15. if R1 = 0 then R1:= 1;
  16. writeln('Введено чисел: ', count);
  17. writeln('Контрольное значение: ', R );
  18. writeln('Вычисленное значение: ', R1);
  19. if R1 = R then
  20. writeln('Значения совпали')
  21. else writeln('Значения не совпали')
  22. end.

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

textual
Листинг программы
  1. using System;
  2.  
  3. namespace CodeConversion
  4. {
  5.     public class CSharpFromPascal
  6.     {
  7.         public static void Main(string[] args)
  8.         {
  9.             int x = 0, max = 0, max7 = 0, R = 0, R1 = 0, count = 0;
  10.            
  11.             while (true)
  12.             {
  13.                 x = int.Parse(Console.ReadLine());
  14.                 if (x == 0) break;
  15.                
  16.                 count++;
  17.                
  18.                 if (((x % 7) == 0) && ((x % 49) != 0) && (x > max7))
  19.                 {
  20.                     max7 = x;
  21.                 }
  22.                 if (((x % 7) != 0) && (x > max))
  23.                 {
  24.                     max = x;
  25.                 }
  26.             }
  27.            
  28.             R = int.Parse(Console.ReadLine());
  29.             R1 = max7 * max;
  30.             if (R1 = 0) R1 = 1;
  31.            
  32.             Console.WriteLine("Введено чисел: {0}", count);
  33.             Console.WriteLine("Контрольное значение: {0}", R);
  34.             Console.WriteLine("Вычисленное значение: {0}", R1);
  35.            
  36.             if (R1 == R)
  37.                 Console.WriteLine("Значения совпали");
  38.             else
  39.                 Console.WriteLine("Значения не совпали");
  40.         }
  41.     }
  42. }

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


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

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут