Sprint116
19-05-2013, 21:37
Помогите пожалуйста перевести из Pascal в C++Program Chet;
Uses crt;
Var
flag : char;
x, b, y, i: integer;
Begin
clrscr;
randomize;
x:=random(99);
If x mod 2=0 then b:= 2 else b:= 1;
repeat
writeln('Введите 2, если число четное или 2, если число нечетное');
readln (y);
begin;
if y>2 then
writeln('Введите 2 или 1!');
end;
writeln('Число компьютера',x);
If y=b then
writeln('Вы угадали')
else writeln('Вы не угадали');
Writeln('Еще раз (Y/N) ?');
readln(flag);
Randomize;
For i:=1 to 10 do
x:=random(99);
Writeln('_______________________________________________________');
until upcase(flag)<>'Y';
end.
Uses crt;
Var
flag : char;
x, b, y, i: integer;
Begin
clrscr;
randomize;
x:=random(99);
If x mod 2=0 then b:= 2 else b:= 1;
repeat
writeln('Введите 2, если число четное или 2, если число нечетное');
readln (y);
begin;
if y>2 then
writeln('Введите 2 или 1!');
end;
writeln('Число компьютера',x);
If y=b then
writeln('Вы угадали')
else writeln('Вы не угадали');
Writeln('Еще раз (Y/N) ?');
readln(flag);
Randomize;
For i:=1 to 10 do
x:=random(99);
Writeln('_______________________________________________________');
until upcase(flag)<>'Y';
end.