Информатика | 5 - 9 классы
Прошу вас, помогите!
Решается оценка!
Найдите ошибки в программе 1)Program z1 ; var a : integer ; begin a : = 10 ; while a< ; 5 do writeln(a) ; a : = a + 1 ; End.
2)Program z2 ; var a, s : integer ; begin a : = 1 ; s : = 0 ; while a< ; 10 do begin s : = s + a / 2 ; end ; writeln(s) ; end.
Что делать?
Что делать?
Program n1 ; Type Test = class Private Var a : integer : = 10 ; Public Var b : integer : = 15 ; End ; Begin Var cl : Test : = new Test() ; Writeln(cl.
A) ; / / должно не выполняться но паскалю пофиг Writeln(cl.
B) / / выпонится End.
Чему будет равен результат выполнения программы, если ввести значения для a = 169?
Чему будет равен результат выполнения программы, если ввести значения для a = 169?
Program c22 ; var a : integer ; k : integer ; begin k : = 0 ; readln(a) ; while (a< ; > ; 0) do begin a : = a div 10 ; inc(k) ; end ; writeln(k) ; end.
А) 9 Б) 3 В) 0 Г) 1.
Найдите значение переменной А после выполнения программы VAR A : INTEGER BEGIN A : = SQRT(16) : END?
Найдите значение переменной А после выполнения программы VAR A : INTEGER BEGIN A : = SQRT(16) : END.
Program prim1 ;uses CRT ;vara, i : integer ;beginread(a) ;i : = 1 ;while i< ; 10 dobegini : = i + 1 ;write(a) ;end ;end?
Program prim1 ;
uses CRT ;
var
a, i : integer ;
begin
read(a) ;
i : = 1 ;
while i< ; 10 do
begin
i : = i + 1 ;
write(a) ;
end ;
end.
Это программа для того чтобы вывести 10 одинаковых чисел на экран.
Помогите пожалуйста переделать так, чтобы можно было вывести слово ПРИВЕТ 10 раз.
Программа pascalABC.
Укажите результат выполнения программы var a, b : integer procedure proc(var a : integer ; b : integer) begin b : = 4 ; a : = 6 ; b : = a + b ; end ; begin a : = 2 ; b : = 3 ; proc(a, b) ; writeln(a, ?
Укажите результат выполнения программы var a, b : integer procedure proc(var a : integer ; b : integer) begin b : = 4 ; a : = 6 ; b : = a + b ; end ; begin a : = 2 ; b : = 3 ; proc(a, b) ; writeln(a, ' ', b) ; end.
Помогитеvar k, s : integer ;begins : = 0k : = 0while k < ; 30 do begink : = k + 3 ;s : = s + k ;end ;write(s) ;end?
Помогите
var k, s : integer ;
begin
s : = 0
k : = 0
while k < ; 30 do begin
k : = k + 3 ;
s : = s + k ;
end ;
write(s) ;
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 int_r ;Var a, x : integer ;b, c : real ;Begina : = 10 ;b : = 5?
Найдите ошибки в следующих программах :
Program int_r ;
Var a, x : integer ;
b, c : real ;
Begin
a : = 10 ;
b : = 5.
2 ;
x : = b div 2 ;
c : = round(x) ;
End.
Program int_r1 ;
Var a, c : integer ;
b, d : real ;
Begin
a : = 25 ;
b : = a / 2 ;
c : = sqr(a) ;
d : = a mod 10 ;
End.
Program My_Prog_01 ;var n, i, x, t : integer ;beginwhile (n?
Program My_Prog_01 ;
var n, i, x, t : integer ;
begin
while (n.
Вы перешли к вопросу Прошу вас, помогите?. Он относится к категории Информатика, для 5 - 9 классов. Здесь размещен ответ по заданным параметрам. Если этот вариант ответа не полностью вас удовлетворяет, то с помощью автоматического умного поиска можно найти другие вопросы по этой же теме, в категории Информатика. В случае если ответы на похожие вопросы не раскрывают в полном объеме необходимую информацию, то воспользуйтесь кнопкой в верхней части сайта и сформулируйте свой вопрос иначе. Также на этой странице вы сможете ознакомиться с вариантами ответов пользователей.
В 1 программе значение переменной а больше чем в цикле и поэтому 10 не меньше 5 и цикл не выполняется
2 ошибка в том, что writeln выводит значение, а после него еще есть условие про а
Если бы а было меньше пяти, то программа зациклилась из заa : = a + 1 , но если бы было меньше пяти и эта строчка была выше writeln (a), то цикл выполнился
Во 2 программе
s : = s + a / 2 получится не целое число, которое соответсвует типу real
И не хватает еще одного действия после s : = s + a / 2 ; там должна участвовать переменная a, чтобы получилась полноценная программа.