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

Помогите пж дам 15 баллов

Приложения:

Ответы

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

1

Ответ:

do you finish вот правильный от6

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

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

Похожие вопросы

Предмет: Українська мова, автор: Lar71

Синонім до слова райдуга

1 год назад

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

John Logie Baird was the first inventor to show television in 1926 перевод

1 год назад

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

Проверочное слово к слову конец

1 год назад

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

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

7 лет назад

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

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

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.

7 лет назад