сервис вопросов и ответовПОЖАЛУЙСТА ПОМОГИТЕ ОЧЕНЬ НАДО
5-9 класс|
|
Написать программу, которая "задумывает" число в диапазоне от 1 до 10 и предлагает пользователю угадать число за 5 попыток.
Daryasergeeva
28 февр. 2015 г., 17:06:46 (9 лет назад)
Annasarito
28 февр. 2015 г., 17:51:39 (9 лет назад)
(С подсказками, не надо - удали)
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»:
является элементом множества
входит в состав
является разновидностью
является причиной
найдите десятичные
эквиваленты чисел по их прямым кодам записанным в
Почему во время установки Office 2007 Windows 7 Максимальная пишет ошибка 1713. Не удается установить один из необходимых продуктов для Microsoft Office
Shared 64-bit MUI (Russian) 2007. И как это исправить.
Читайте также
Пожалуйста помогите по информатике
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.
1.Даны координаты трёх вершин треугольника(x1,y1),(x2,y2),(x3,y3).Найти его площадь,используя формулу для расстояния между двумя точками на
плоскости.
Пожалуйста помогите,очень надо,успеть до 23.00(
Вы находитесь на странице вопроса "ПОЖАЛУЙСТА ПОМОГИТЕ ОЧЕНЬ НАДО", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.