Конвертировать с 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("Значения не совпали");
- }
- }
- }
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д