Var
Zn:integer;
Begin
Zn:=2*482734;
Write(Zn);
End.
Var
flag,i,x,y:integer;
begin
x:=Random(0,99);
flag:=0;
for i:=1 to 10 do begin
write('Введите ваше число ');
readln(y);
if (x = y) then begin
flag:=1;
writeln('Дан правильный ответ!');
break
end
else
if (x < y) then
writeln('Попробуйте взять число поменьше')
else
writeln('Попробуйте взять число побольше');
end;
if flag = 0 then writeln('Все попытки исчерпаны');
end.
<span>Вы решили поработать с компьютером, включили его, устроились поудобнее, но вместо приветствия увидели на экране «DISK BOOT FAILURE, INSERT SYSTEM DISK»? Это сообщение означает, что ПК не может загрузить данные с системного диска. Если эта ошибка не связана с поломкой винчестера, её можно исправить. Но иногда она возникает из-за аппаратной неисправности. В таком случае починку компьютера лучше доверить профессионалам </span>
Второй вариант. Внизу картинка, которая всё подтверждает :)
В Вашей программе номер максимального числа подсчитывается от младших разрядов числа к старшим, а вывести нужно номер от старших разрядов к младшим. Поэтому, нужно добавить в программу строку imax = i - imax + 1; перед строкой
<span>printf ("%d", imax);
И ещё, так как нужно вывести первую максимальную цифру числа (если их несколько), то нужно изменить строку if (a>max) на строку if (a>=max)
</span>