Предмет: Информатика,
автор: sesegayusheeva
Pascal.
Составить программу угадывания числа,задуманное компьютером.
Ответы
Автор ответа:
0
я такое делал на яве когда делать было нечего...
исходник прикреплен
паскаль
var comp,player:integer;
begin
randomize;
comp:=random(11);
readln(player);
while comp <> player do
begin
if player<comp then
writeln('Мало');
if player>comp then
writeln('Много');
readln(player);
end;
write('Вы угадали')
end.
исходник прикреплен
паскаль
var comp,player:integer;
begin
randomize;
comp:=random(11);
readln(player);
while comp <> player do
begin
if player<comp then
writeln('Мало');
if player>comp then
writeln('Много');
readln(player);
end;
write('Вы угадали')
end.
Приложения:
Автор ответа:
0
Вы нарушили "пожелания клиента" - он требует тип real...
Интересные вопросы
Предмет: Другие предметы,
автор: ilyaygrymow4534
Предмет: Математика,
автор: aidabejsenbaeva4
Предмет: Русский язык,
автор: ersinmereke
Предмет: Литература,
автор: nasty123564
Предмет: Геометрия,
автор: Дадашка