Конвертировать с 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("Значения не совпали");
}
}
}