Информатика | 10 - 11 классы
Помогите исправить ошибку(не выводит ответ)Ребус ussr + usa = peace var m : set of byte ; u, s, r, a, p, e, c : integer ; begin m : = [] ; for u : = 1 to 6 do if not (u in m) then begin Include(m, u) ; for s : = 0 to 6 do if not (s in m) then begin Include(m, s) ; for r : = 0 to 6 do if not (r in m) then begin Include(m, r) ; for a : = 0 to 6 do if not (a in m) then begin Include(m, a) ; for p : = 1 to 6 do if not (p in m) then begin Include(m, p) ; for e : = 0 to 6 do if not (e in m) then begin Include(m, e) ; for c : = 0 to 6 do if not (c in m) then begin Include(m, c) ; if u * 1000 + s * 100 + s * 10 + r + u * 100 + s * 10 + a = p * 10000 + e * 1000 + a * 100 + c * 10 + e then WriteLn(u, s, s, r, ' + ', u, s, a, ' = ', p, e, a, c, e) ; Exclude(m, c) end ; Exclude(m, e) ; end ; Exclude(m, p) ; end ; Exclude(m, a) end ; Exclude(m, r) end ; Exclude(m, s) end ; Exclude(m, u) end ; end.
Определите, какое число будет напечатано в результате выполнения следующего алгоритма : var a, b, t, M, R : integer ; Function F(x : integer) : integer ; begin F : = 3 * (x - 8) * (x - 8) end ; begin ?
Определите, какое число будет напечатано в результате выполнения следующего алгоритма : var a, b, t, M, R : integer ; Function F(x : integer) : integer ; begin F : = 3 * (x - 8) * (x - 8) end ; begin a : = - 20 ; b : = 20 ; M : = a ; R : = F(a) ; for t : = a to b do begin if (F(t) < ; R) then begin M : = t ; R : = F(t) end end ; write(M) ; end.
Исправить ситаксические ошибки в программе которая в тексте меняет слово 77777 на слово 00000 Var s : string ; d, i : integer ; begin s : = '177777277777377777477777 ; d : = length(s) ; for i : = 0 to?
Исправить ситаксические ошибки в программе которая в тексте меняет слово 77777 на слово 00000 Var s : string ; d, i : integer ; begin s : = '177777277777377777477777 ; d : = length(s) ; for i : = 0 to d - 4 begin if copy(s, i, 5) = 00000 then begin delete(s, i, 5) ; end end ; writeln(s) end.
По тексту программы определите условие задачи var i, x, s, k, n : integer ; begin s : = 0 ; k : = 0 ; readln(n) ; for i : = 1 to n do begin read(x) ; if x> ; 0 then begin S : = s + x ; k : = k + 1 ?
По тексту программы определите условие задачи var i, x, s, k, n : integer ; begin s : = 0 ; k : = 0 ; readln(n) ; for i : = 1 to n do begin read(x) ; if x> ; 0 then begin S : = s + x ; k : = k + 1 ; end ; end ; if k : = 0 then writeln(s) else writeln(s / k : 4 : 2) ; end.
Исправить ошибку Помогите исправить ошибку в программе Вот задание : Разработать программу поиска и печати всех чисел - близнецов, принадлежащих заданному диапазону [N, M ]?
Исправить ошибку Помогите исправить ошибку в программе Вот задание : Разработать программу поиска и печати всех чисел - близнецов, принадлежащих заданному диапазону [N, M ].
Вот программа : program yyy ; function prost(var x : integer) : boolean ; var k, i : integer ; t : boolean ; begin t : = true ; k : = 0 ; for i : = 1 to x do begin if x mod i = 0 then k : = k + 1 ; end ; if k = 2 then t : = true else t : = false ; prost : = t end ; var n, m, i : integer ; begin writeln('1') ; readln(n) ; writeln('2') ; readln(m) ; for i : = n to m - 1 do begin if prost(i) and prost(i + 2) then writeln(i , (i + 2)) ; end ; end.
Program TELESHOP ; var x : real ; begin writeln ('?
Program TELESHOP ; var x : real ; begin writeln ('.
') ; write ('.
') ; write ('.
') ; readln (x) ; if x< ; = 1 then begin if x = 1 then begin writeln ('.
') ; writeln ('.
') ; end else begin writeln ('.
') ; end ; * else begin writeln ('.
') ; end end.
* - место ошибки.
"встречено 'else', а ожидалось оператор" Вопрос : в чем ошибка?
EGE #11 procedure F(n : integer) ; begin if n > ; 0 then G(n - 1) ; end ; procedure G(n : integer) ; begin writeln(' * ') ; if n > ; 1 then F(n - 3) ; end ; На выходе у меня 1 " * " Правильно ли?
EGE #11 procedure F(n : integer) ; begin if n > ; 0 then G(n - 1) ; end ; procedure G(n : integer) ; begin writeln(' * ') ; if n > ; 1 then F(n - 3) ; end ; На выходе у меня 1 " * " Правильно ли?
Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 ?
Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 then begin writeln ('утро') ; readln (d) ; if a = 12 then begin writeln ('день') ; end ; if a = 16 then begin writeln ('вечер') ; / / / if a = 21 then begin writeln ('ночь') ; / / / end ; end ;
Помогите решить, пожалуйста) var a, b, t, M, R : integer ; Function F(x : integer) : integer ; begin F : = 9 * (x + 19) * (x - 19) + 1 ; end ; begin a : = - 20 ; b : = 20 ; M : = a ; R : = F(a) ; for ?
Помогите решить, пожалуйста) var a, b, t, M, R : integer ; Function F(x : integer) : integer ; begin F : = 9 * (x + 19) * (x - 19) + 1 ; end ; begin a : = - 20 ; b : = 20 ; M : = a ; R : = F(a) ; for t : = a to b do begin if (F(t) < ; R ) then begin M : = t ; R : = F(t) end end ; write(M) ; end.
Помогите исправить ошибку(не выводит ответ)Ребус ussr + usa = РЕАСЕ var m : set of byte ; u, s, r, a, p, e, c : integer ; begin m : = [] ; for u : = 1 to 6 do if not (u in m) then begin Include(m, u) ?
Помогите исправить ошибку(не выводит ответ)Ребус ussr + usa = РЕАСЕ var m : set of byte ; u, s, r, a, p, e, c : integer ; begin m : = [] ; for u : = 1 to 6 do if not (u in m) then begin Include(m, u) ; for s : = 0 to 6 do if not (s in m) then begin Include(m, s) ; for r : = 0 to 6 do if not (r in m) then begin Include(m, r) ; for a : = 0 to 6 do if not (a in m) then begin Include(m, a) ; for p : = 1 to 6 do if not (p in m) then begin Include(m, p) ; for e : = 0 to 6 do if not (e in m) then begin Include(m, e) ; for c : = 0 to 6 do if not (c in m) then begin Include(m, c) ; if u * 1000 + s * 100 + s * 10 + r + u * 100 + s * 10 + a = p * 10000 + e * 1000 + a * 100 + c * 10 + e then WriteLn(u, s, s, r, ' + ', u, s, a, ' = ', p, e, a, c, e) ; Exclude(m, c) end ; Exclude(m, e) ; end ; Exclude(m, p) ; end ; Exclude(m, a) end ; Exclude(m, r) end ; Exclude(m, s) end ; Exclude(m, u) end ; end.
Определите, какое число будет напечатано в результате выполнения следующего алгоритма : var a, b, t, N, P : integer ; Function F(x : integer) : integer ; begin F : = 16 * (9 - x) * (9 - x) + 127 ; end?
Определите, какое число будет напечатано в результате выполнения следующего алгоритма : var a, b, t, N, P : integer ; Function F(x : integer) : integer ; begin F : = 16 * (9 - x) * (9 - x) + 127 ; end ; BEGIN a : = - 25 ; b : = 25 ; P : = 130 ; N : = 0 ; for t : = a to b do begin if (F(t) > ; P) then begin N : = N + 1 ; end ; end ; write(N) ; END.
На этой странице вы найдете ответ на вопрос Помогите исправить ошибку(не выводит ответ)Ребус ussr + usa = peace var m : set of byte ; u, s, r, a, p, e, c : integer ; begin m : = [] ; for u : = 1 to 6 do if not (u in m) then begin Include(m, u) ?. Вопрос соответствует категории Информатика и уровню подготовки учащихся 10 - 11 классов классов. Если ответ полностью не удовлетворяет критериям поиска, ниже можно ознакомиться с вариантами ответов других посетителей страницы или обсудить с ними интересующую тему. Здесь также можно воспользоваться «умным поиском», который покажет аналогичные вопросы в этой категории. Если ни один из предложенных ответов не подходит, попробуйте самостоятельно сформулировать вопрос иначе, нажав кнопку вверху страницы.
Можно исправить, если во всех циклах вместо "to 6" написать"to 9".
Результат получится :
9338 + 932 = 10270.