2. Какие значения получат переменные x, y и z после выполнения программы, если с клавиатуры будут последовательно введены числа 12 и 5 : program p ; var x, y, z : integer ; begin readln (x, y) ; z : =?

230520001 25 мая 2020 г., 16:15:22

12560 именно так будет выведен ваш ответ.

Х = 12, у = 5, z - их произведение, соответственно 60, но вывод оформлен так, что все числа без разделителей будут напечатаны друг за другом.

Йчуметнлщдшщгапм5689 22 авг. 2020 г., 00:02:41 | 5 - 9 классы

Найдите значение переменной А после выполнения программы VAR A : INTEGER BEGIN A : = SQRT(16) : END?

Найдите значение переменной А после выполнения программы VAR A : INTEGER BEGIN A : = SQRT(16) : END.

Ав54 29 февр. 2020 г., 07:56:28 | 10 - 11 классы

При каком наименьшем введенном числе d после выполнения программы будет напечатано 63?

При каком наименьшем введенном числе d после выполнения программы будет напечатано 63?

Var n, s, d : integer ; begin readln(d) ; n : = 3 ; s : = 57 ; while s < ; = 1200 do begin s : = s + d ; n : = n + 4 end ; write(n) end.

Gameplayermcpe 24 апр. 2020 г., 01:32:12 | 5 - 9 классы

Какое значение примет переменная Х после выполнения программы, если его введенное значение с клавиатуры 121?

Какое значение примет переменная Х после выполнения программы, если его введенное значение с клавиатуры 121?

Program z7 ;

var X : integer ;

begin

writeln('введите Х') ;

if X > ; 100 then X : = X - 20 ;

writeln('X = ', X) ;

end.

2. Какой результат получится после выполнения программы, если a = 5 и b = 2?

Program z8 ;

var a, b, c : integer ;

begin

readln(a, b) ;

c : = sqr(a + b) ;

if c> ; 59 then a : = a + 2

else c : = c + 2 ;

writeln ('результат c = ', c) ;

end.

Vadeeme798 20 апр. 2020 г., 06:39:09 | 5 - 9 классы

Вычислить сумму 10 натуральных чисел, вводимых с клавиатуры?

Вычислить сумму 10 натуральных чисел, вводимых с клавиатуры.

Program Demofor1 ;

Var S, P, I : integer ; Begin

For I : = .

To . doBeginWriteln (‘Введите число’) ;

(P) ; S : = S + .

;

End ;

Writeln (‘ Сумма равна’, .

) ;

End.

14013 10 мая 2020 г., 01:22:45 | 10 - 11 классы

Объяснить, в чем заключается синтаксическая ошибка (или ошибки) в приведенной программе?

Объяснить, в чем заключается синтаксическая ошибка (или ошибки) в приведенной программе.

Написать тот вариант программы, который, по Вашему мнению, будет правильным.

Program My_Error ; Var X, Y, Сумма : Integer ; Begin WriteLn( Введите значение X) ; ReadLn(X) ; WriteLn( Введите значение Y) ; ReadLn(Y) ; Сумма = X + Y ; WriteLn(Сумма) End.

11111109 26 июн. 2020 г., 15:33:09 | 10 - 11 классы

При каком наибольшем введенном числе d после выполнения программы будет напечатано 55?

При каком наибольшем введенном числе d после выполнения программы будет напечатано 55?

Var n, s, d : integer ; begin readln(d) ; n : = 0 ; s : = 0 ; while s < ; = 365 do begin s : = s + d ; n : = n + 5 end ; write(n) end.

ArturAadamson41 2 сент. 2020 г., 00:42:09 | 5 - 9 классы

Перепишите программу исправивь ошибки : Program primer : Var : a, b = integer ; Begin ; ReadLn ( a, b) ; s = a + b ; m : a * b ; d : = a : b ; Write ( s, m, d) ; End?

Перепишите программу исправивь ошибки : Program primer : Var : a, b = integer ; Begin ; ReadLn ( a, b) ; s = a + b ; m : a * b ; d : = a : b ; Write ( s, m, d) ; End.

Cyrusmilay 17 июн. 2020 г., 04:54:27 | 5 - 9 классы

Помогите ответить на вопросы по программе 1) В какой строке вызывается процедура?

Помогите ответить на вопросы по программе 1) В какой строке вызывается процедура?

Укажите номер строки 2) В какой строке вызывается функция?

Укажите номер строки 3) Укажите тип данных переменной St?

4) В какой строке описывается переменная St?

Укажите номер строки 5) Назначение переменной St?

Program ZZ1 ; var x, y, m, n : integer ; St : string ; function MaxNumber(a, b : integer) : integer ; var max : integer ; begin if a> ; b then max : = a else max : = b ; MaxNumber : = max ; end ; procedure MinNumber(c, d : integer ; var min : integer) ; begin if c end ; begin write('Введите свое имя') ; readln(St) ; write('Введите x, y ') ; readln(x, y) ; n : = MaxNumber(x, y) ; writeln('Максимум = ', n) ; MinNumber(x, y, m) ; writeln('Минимум = ', m) ; writeln('Данную программу запустил : ', St) ; end.

Fylhsqre 23 февр. 2020 г., 18:27:31 | 5 - 9 классы

Помогите пожалуйста?

Помогите пожалуйста!

3. Найдите ошибки в программе и запишите исправленную программу в тетрадь : Program 3 funkciy ; Var x : y : integer Writeln (‘введите значение х’) ; Readln(х) ; Begin If x> ; 0 then y : = x ; else y : = x * x ; writeln(значение функции , y) ; end.

4. Дана программа на языке Паскаль : Program a2 ; Var a, b, c, min : real ; Begin Writeln (‘введите 3 числа’) ; Readln(a, b, c) ; min : = a ; if b.

Дени123654123654 9 мар. 2020 г., 02:48:01 | 5 - 9 классы

Значение переменной p при n = 5 после выполнения программы ProgrammTest ; Var p, i, n : integer ; Begin Write('Введите цельное n = ') Readln(n) ; p : = 1 for i : = 1 to n do p : = p * i ; Writeln(n, '?

Значение переменной p при n = 5 после выполнения программы ProgrammTest ; Var p, i, n : integer ; Begin Write('Введите цельное n = ') Readln(n) ; p : = 1 for i : = 1 to n do p : = p * i ; Writeln(n, ' = ', p) End.