Предмет: Русский язык, автор: ahsimovabaian

пжж 34бетегі 5-тапсырма 100балл берем

Ответы

Автор ответа: mansurkz9292

1

Ответ:

не аааааааааааа ол қайда ол қай сынып

ahsimovabaian: 6-сынып

ahsimovabaian: қазақ әдебиеттең

ahsimovabaian: пж

Предыдущий вопрос

Следующий вопрос

Интересные вопросы

Предмет: Русский язык, автор: Jalalkg

как проверить слово экземпляр

2 года назад

Предмет: Русский язык, автор: KING1001

задание номер 151 написать сочинение по теме картина А.К Саврасов Грачи прилетели

2 года назад

Предмет: Английский язык, автор: dasha917

как сказать что я точно буду делать на английском

2 года назад

Предмет: Математика, автор: кира753

решите уравнение
3х-5=х+7

8 лет назад

Предмет: Информатика, автор: Аноним

Помогите перевести код с Паскаля на си. Пожалуйста

var
b,uroven, chislo, popytki, number, max :integer;

begin
randomize;
writeln('###############################');
writeln('##### Игра "Угадай число" #####');
writeln('###############################');
repeat
writeln;
uroven:=0;
popytki:=0;

while (uroven<1) or (uroven>4) do //Защита от неправильно введенного уровня
begin
writeln('Выберите уровень сложности:');
writeln('1 - Числа от 1 до 10, 3 попытки');
writeln('2 - Числа от 1 до 50, 5 попыток');
writeln('3 - Числа от 1 до 100, 8 попыток');
writeln('4 - Числа от 1 до 1000, 15 попыток');
readln(uroven);
end;

if uroven =1 then begin chislo:=random(10)+1; max:=3 end;
if uroven =2 then begin chislo:=random(50)+1; max:=5 end;
if uroven =3 then begin chislo:=random(100)+1; max:=8 end;
if uroven =4 then begin chislo:=random(1000)+1; max:=15 end;

repeat
inc(popytki);
write('Попытка ',popytki,' Ваше число? ');
read(number);

if number>chislo then writeln(' Я загадал число поменьше') else
if number writeln('Вы угадали!')
until (chislo=number)or(popytki=max);
if (chislo<>number)and(popytki=max)then writeln('К сожалению, Вам не удалось отгадать число. Я загадал ',chislo);
writeln('Хотите сыграть еще раз? Если да, введите 1, если нет, то 0');
readln(b);
until b=0;
end.

8 лет назад