Дидактические      Документация     Психология    Здоровьесберегающие
                          материалы                                                               технологии

Игра «Угадывание чисел».

Program igra;
Uses crt;
Var a,x:integer;
Begin
clrscr;
writeln(‘Загадайте число.’);
writeln(‘Умножьте это число на 2 и прибавьте 5.’);
writeln(‘Умножьте на 5 и прибавьте 10.’);
writeln(‘Умножьте на 10.’);
writeln(‘Что получилось?’);
readln(a);
x:=(a-350) div 100;
writeln(‘Вы загадали число=’,x);
writeln(‘ » Или Вы не умеете считать.» ‘);
readln;
End.

RSS 2.0 | Трекбек | Комментарий

Комментирование закрыто.