Информатика | 10 - 11 классы
По тексту программы определите условие задачи 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.
ЧТО НЕ ПРАВИЛЬНО?
ЧТО НЕ ПРАВИЛЬНО?
Program p_1 ;
var x, y : real ;
begin
read(x) ;
if 0< ; x< ; 2 then begin y : = sqr(cos(x)) ;
else begin y : = 1 - sin(sqr(x)) ;
end ;
writeln(y) ;
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.
Найдите значение переменной А после выполнения программы VAR A : INTEGER BEGIN A : = SQRT(16) : END?
Найдите значение переменной А после выполнения программы VAR A : INTEGER BEGIN A : = SQRT(16) : 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.
Исправить ошибку Помогите исправить ошибку в программе Вот задание : Разработать программу поиска и печати всех чисел - близнецов, принадлежащих заданному диапазону [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', а ожидалось оператор" Вопрос : в чем ошибка?
Что напечатает данная программа : Var x : = Integer Begin x : = 2 WriteLn('x + 1 = ', x) End?
Что напечатает данная программа : Var x : = Integer Begin x : = 2 WriteLn('x + 1 = ', x) End.
Здравствуйте, помогите пожалуйста найти ошибку 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.
Определите, какое число будет напечатано в результате выполнения следующего алгоритма : 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.
На этой странице сайта вы найдете ответы на вопрос По тексту программы определите условие задачи 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 ?, относящийся к категории Информатика. Сложность вопроса соответствует базовым знаниям учеников 10 - 11 классов. Для получения дополнительной информации найдите другие вопросы, относящимися к данной тематике, с помощью поисковой системы. Или сформулируйте новый вопрос: нажмите кнопку вверху страницы, и задайте нужный запрос с помощью ключевых слов, отвечающих вашим критериям. Общайтесь с посетителями страницы, обсуждайте тему. Возможно, их ответы помогут найти нужную информацию.
Вычислить среднее арифметическое среди положительных чисел, введенных пользователем (количество чисел тоже определяет пользователь), вывести его с двумя знаками после запятой и четырьмя перед запятой.
Считает среднее арифметическое положительных и делит его на 8.
Количество чисел определяет пользователь.