Пользователь вводит число,программа должна вывести на экран 3 случайных числа ,не с введённым пользователем числом . ( паскаль) я написала ,но проблема в условии ( сейчас просто цикл) . исправьте ! uses crt; var a,b,d: integer; begin readln (a); randomize; for b: =1 to 3 do begin d: =random (3); write (' ',d,' '); end; end.

130

216

Посмотреть ответы 2

Ответы на вопрос:

Lerazamsha

Информатика

4,8(4 оценок)

При таком придётся переделать цикл полностью. в частности, придётся отказаться от цикла for и использовать while. также придётся ввести индекс, определяющий количество значений, не равных введённому. используем переменную b для этой цели. переделывая твой код получаем следующее. uses crt; var a,b,d,i: integer; begin readln (a); randomize; b : = 0; while i < 3 do begin d: =random (10); if d < > a then begin write (' ',d,' '); i += 1; end; end; end.

cuprinainna

Информатика

4,8(96 оценок)

1)var n,k: integer; begin write('число: '); readln(n); k: =0; repeat k: =k*10+n mod 10; n: =n div 10; until n=0; writeln('новое число: ',k); end. 2) var n,k,m: integer; begin write('двоичное число: '); readln(n); k: =1; m: =0; repeat m: =m+k*(n mod 10); n: =n div 10; k: =k*2; until n=0; writeln('десятичное число: ',m); end.