Статистика
Всего в нашей базе более 4 327 056 вопросов и 6 446 096 ответов!

ПОЖАЛУЙСТА ПОМОГИТЕ ОЧЕНЬ НАДО

5-9 класс

Написать программу, которая "задумывает" число в диапазоне от 1 до 10 и предлагает пользователю угадать число за 5 попыток.

Daryasergeeva 28 февр. 2015 г., 17:06:46 (5 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Annasarito
28 февр. 2015 г., 17:51:39 (5 лет назад)

(С подсказками, не надо - удали)
var r,ch,z: integer;
begin
Randomize;
r:=random(10)+1;
z:=5;
repeat
write('Отгадайте число от 1 до 10. У вас ',z,' попыток :');
readln(ch);
z:=z-1;
if z>0 then
begin
If ch<r then Writeln('Неправильно! Загаданное число больше.')
else If ch>r then Writeln('Неправильно! Загаданное число меньше.')
else writeln('Вы угадали!');
end
else Writeln('Попытки кончились!');
until (z=0)or(ch=r);
End.


Ответить

Другие вопросы из категории

1. Построить фрагмент иерархической модели животного мира.

2. Постоить фрагмент модели генеалогического древа вашей семьи.(как это?)

Укажите отношение для пары «графический редактор и MSPaint»:

является элементом множества
входит в состав
является разновидностью
является причиной

найдите десятичные

эквиваленты чисел по их прямым кодам записанным в

чтобы выбрать фоновый цвет необходимо...

Читайте также

Пожалуйста помогите по информатике

1) исключи лишнее:
а)микрофон, б)колонки, в) наушники , г) монитор
2)исключи лишнее:
а)процессор, б) монитор, в)клавиатура, мышь
3)установите соответствие. Устройство ПК:
1. клавиатура
2. модем
3.центральный процессор
назначение устройств:
а)передача цифровой информации через каналы связи
б)хранение информации
в)обеспечение общего управления ПК, осуществление вычислений по программе, хранящейся в оперативной памяти
г)визуальное отображение информации, находящейся в оперативной памяти
д)ввод алфавитно-цифровых символов
6.Раздели на группы и дай название каждой группе:
а)принтер,б)сканер,г)мышь,д)проектор,е)веб камера,ж)процессор,з)колонки,и)микрофон, к) монитор
Пожалуйста помогите очень срочно.

РебяТ помогите очень надо, решит не могу не был на уроках, а она мне дала задачу.

Массив содержит 20 случайных чисел из промежутка [1..37] Выводит на экран эдементы больше 11, но меньше 22 ПОжалуйста помогите)

Выбрать любые 2 десятичных двуразрядных числа больше 15, представить их в системах счисления с основаниями 2,5,8,16. С числами в каждой системе

счисления выполнить все арифметические операции. Пожалуйста помогите очень надо! :(

пожалуйста помогите очень надо!!! В массиве храниться информация о стоимости товаров. Составьте программу, которая определяет стоимость самого

дешевого(дорогого) товара и его индекс.

вот программа но в ней где-то ошибка

program xxx;

var a:array [1..10] of integer;

i, max, min:integer;

begin

for i:=1 to 10 do read(a[i]);

min:=1;

for i:=2 to 10 do

if a[i]<min then min:=a[i];

writeln('a[',i,']=',a[i]);

max:=a[i];

for i:=2 to 10 do

if a[i]>max then max:=a[i];

writeln('a[',i,']=',a[i]);

end.



Вы находитесь на странице вопроса "ПОЖАЛУЙСТА ПОМОГИТЕ ОЧЕНЬ НАДО", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.