Вот моя игра . Угадай число.
program k2game;
uses crt;
var i,a,n:integer;
begin
textbackground(14);
clrscr;
gotoxy(33,2);
textcolor(4);
writeln('Игра "Угадай число!" ');
delay(400);
textcolor(5);
gotoxy(23,4);
writeln('1. Компьютер загадывает число от 0 до 9.');
delay(840);
textcolor(5);
gotoxy(23,5);
writeln('2. Ваша задача - угадать это число!');
delay(840);
textcolor(5);
gotoxy(23,6);
writeln('3. Не забывайте, что у вас всего две попытки!');
delay(640);
textcolor(5);
gotoxy(23,7);
writeln('4. Если же вы ошиблись, то компьютер даст вам подсказку.');
randomize;
a:=random(10);
n:=0;
textcolor(0);
repeat
gotoxy(23,9);
введите число.');
gotoxy(23,10);
readln(i);
if (i <> a) then
begin
n:=n+1;
gotoxy(23,11);
if (i>a) then writeln('Подсказка: Загаданное число меньше.')
else writeln('Подсказка: Загаданное число больше.')
end;
until ((i=a) or (n=2));
gotoxy(23,13);
textcolor(2);
if (i=a) then writeln('Поздравляю! Вы выйграли!')
Else writeln('К сожалению,н
о вы проиграли!');
end.
Напишу основные идеи на языке Си,но преобразовать несложно Вам будет.
1. int N,c1,c2,razn,chastn;
scanf ("%d",&N); // запрашиваем двузначное число
c1=N%10;
N/=10;
c2=N%10;
razn=c2-c1; chastn=c2/c1;
2. int Z;
if (Z>0) Z=Z+1;
if (Z==0) Z=10;
3. int Z, c_right, c_left;
c_right=Z%10;
Z=Z/10;
c_left=Z%10;
4. int Z;
if ( Z%2==0 ) четное ;
else нечетное ;
5. int a,b,sum ; //имеем ввиду a<b
do
{ a=a+1;
sum=sum+a;
}
while (a!=b-1); // (a!=b) - если от а до Б включительно
Как то так. Если возникнут вопросы- пишите :)
Присвой произведению сначала 1
При первом вводе запиши: P:=P*a1
При втором Р:= P*a2 и т.д
при последнем вводе получишь искомый ответ P:=P*a5 или Р:=1*а1*a2*a3*a4*a5
Всё... Реализация в цикле проста. Пробуй!