Определите что будет выведено на экран после выполнения следующего алгоритма : Var s : integer ; k : real ; Begin S : = 25 ; If s mod 2 < ; > ; 0 then Begin S : = s — 1 ; K : = s / 2 End Else k : ?
Определите что будет выведено на экран после выполнения следующего алгоритма : Var s : integer ; k : real ; Begin S : = 25 ; If s mod 2 < ; > ; 0 then Begin S : = s — 1 ; K : = s / 2 End Else k : = s ; Writeln (k) End.
Var s : integer ; k : real ;
If s mod 2 < ; > ; 0 then
Помогите , пожалуйста ?
Нужно написать программу для Паскаль.
Ввести пять чисел и найти наибольшее из них.
Я тут написал кое — что , но не знаю правильно ли : (
var a, b, c, d, e, max : integer ;
writln(‘Введите пять целых чисел’) ;
if max> ; c then begin
if d> ; e then begin
Нужна блок схема к следующим алгоритмам на паскаль школьная работа срочно?
Нужна блок схема к следующим алгоритмам на паскаль школьная работа срочно!
for i : = 100 to 999 do
if (i mod 7) = 0 then writeln(i) ;
for i : = 100 to 999 do
if (i mod 13) = 0 then s : = s + i ;
for i : = 1 to 10 do
writeln(‘2 в степени ‘, i, ‘ = ‘, k) ;
Определите, что будет напечатано в результате выполнения следующего алгоритма :var a, b : integer ;begina : = 1 ;b : = 1 ;while abs(b)< ; 100do begind : = b * ( — 1) ;a : = 3 * a + b ;b : = a * b ;e?
Определите, что будет напечатано в результате выполнения следующего алгоритма :
var a, b : integer ;
Написать программу для решения задачи?
Написать программу для решения задачи.
Вводятся две строки символов.
Определить, которая из них больше.
Var _______ : string ; Begin writeln(‘_________________’) ; readln(_____) ; writeln(‘_________________’) ; readln(_____) ; if S1> ; S2 then writeln(‘ ______ больше’) else if _____ then writeln(‘ ______ больше ‘) else writeln(‘одинаковые’) readln ;
Что выведет данная программа?
Что выведет данная программа?
function f (n : byte) : longint ;
if n = 0 then f : = 1
else f : = (2 * n) * f(n — 1) ; end ;
z : = f(5) ; writeln (z) ; end.
Ниже записаны две рекурсивные функции (процедуры) : F и G?
Ниже записаны две рекурсивные функции (процедуры) : F и G.
Сколько символов «звёздочка» будет напечатано на экране при выполнении вызова F(12)?
Procedure F(n : integer) ; begin writeln(‘ * ‘) ; if n > ; 0 then begin writeln(‘ * ‘) ; G(n — 1) ; end ; end ; procedure G(n : integer) ; begin writeln(‘ * ‘) ; if n > ; 1 then begin writeln(‘ * ‘) ; F(n — 2) ; end ; end ; Можете подробно расписать пожалуйста)))).
Какое число будет напечатано в результате выполнения программы : var i, k : integer ; function f(x : integer) : integer ; var m : integer ; begin if x < ; 10 then f : = x else begin m : = f(x div 10?
Какое число будет напечатано в результате выполнения программы : var i, k : integer ; function f(x : integer) : integer ; var m : integer ; begin if x < ; 10 then f : = x else begin m : = f(x div 10) ; if m < ; x mod 10 then f : = x mod 10 else f : = m ; end ; end ; begin k : = 0 ; for i : = 1000 to 3000 do if f(i mod 100) = 1 then if f(i div 100) = 3 then k : = k + 1 ; writeln(k) ; end.
Пожалуйста исправите ошибку в программе program zagadki2 ; var a, b, c, d : string ; begin CLS ; writeln(‘Привет, я программа, загаывающая загадки’) ; writeln(‘Будешь отгадывать ?
Пожалуйста исправите ошибку в программе program zagadki2 ; var a, b, c, d : string ; begin CLS ; writeln(‘Привет, я программа, загаывающая загадки’) ; writeln(‘Будешь отгадывать ?
‘) ; readln(a) ; if a : = (‘да’) then writeln(‘Зимой и летом одним цветом.
‘) else begin writeln(‘пока’) ; Readln(a) ; end ; if b : = (‘ёлка’) then writeln(‘правильно!
‘) else begin writeln(‘нет, попробуй ещё раз’) ; Readln(b) ; if b : = (‘ёлка’) then writeln(‘правильно!
‘) end ; writeln(‘Сидит красавица в темнице, а коса на улице.
‘) ; Readln(c) ; if c : = (‘морковь’) then writeln(‘правильно!
‘) else begin writeln(‘попробуй ещё раз’) ; Readln(c) ; if c : = (‘морковь’) then writeln(‘правильно’) end ; writeln(‘Не лает, не кусает, да в дом не пускает.
‘) ; Readln(d) ; if c = (‘замок’) then writeln(‘правильно’) else begin writeln(‘попробуй ещё раз’) ; Readln(d) ; if c : = (‘замок’) then writeln(‘правильно’) ; end ; end.
Кто понимает в информатике?
Кто понимает в информатике?
Var a, b : integer ; znak = ‘»’ then begin writeln(‘( — 00 ; , — b / a, ‘)’) ; end ; end.
№4 Дан рекурсивный алгоритм : procedure F(n : integer) ; begin writeln(‘ * ‘) ; if n > ; 0 then begin writeln(‘ * ‘) ; F(n — 2) ; F(n div 2) ; end end ; Сколько символов «звездочка» будет напечатано?
№4 Дан рекурсивный алгоритм : procedure F(n : integer) ; begin writeln(‘ * ‘) ; if n > ; 0 then begin writeln(‘ * ‘) ; F(n — 2) ; F(n div 2) ; end end ; Сколько символов «звездочка» будет напечатано на экране при выполнении вызова F(7)?
Если вам необходимо получить ответ на вопрос Определите что будет выведено на экран после выполнения следующего алгоритма : Var s : integer ; k : real ; Begin S : = 25 ; If s mod 2 < ; > ; 0 then Begin S : = s — 1 ; K : = s / 2 End Else k : ?, относящийся к уровню подготовки учащихся 5 — 9 классов, вы открыли нужную страницу. В категории Информатика вы также найдете ответы на похожие вопросы по интересующей теме, с помощью автоматического «умного» поиска. Если после ознакомления со всеми вариантами ответа у вас остались сомнения, или полученная информация не полностью освещает тематику, создайте свой вопрос с помощью кнопки, которая находится вверху страницы, или обсудите вопрос с посетителями этой страницы.
Простой калькулятор на pascal Pascal / / / / / / / / / / var a, b : Integer ; begin writeln('Введите первое число') ; readln(a) ; writeln('Введите второе число') ; readln(b) ; writeln('Ваш результат сложения : ', a + b) ; writeln('Ваш результат вычит..
Как точно звучит задание? Чтоб перевести число в десятичну систему нужно знать в какой системе число было записано первоначально.
11000101 в 2 101011111 в 2 11111111 в 2.
Как то так / / PascalABC. NET 3. 3, сборка 1573 от 04. 11. 2017 / / Внимание! Если программа не работает, обновите версию! Begin var i : integer ; var ur1 : = ReadReal('ur1 = ') ; var ur2 : = ReadReal('ur2 = ') ; var p : = ReadReal('p = ') ; for..
1. действие в скобках 2. Инверсия 3. Конъюнкция 4. Дизъюнкция.
Program sqrt ; var a, b : integer ; begin write('Введите N : ') ; read(a) ; b : = sqrt(100 + sqrt(98 + sqrt(96 + a + sqrt(2)))) ; writeln('Результат — ', b) ; end.
3 / 256 Мбайта = 1024 * 3 / 256 Кбайт = 12 Кбайт = 12 * 1024 байт = 12 * 1024 * 8 бит Память для одного символа = 12 * 1024 * 8 / 6144 = 16 бит Мощность алфавита = 2 ^ 16 = 16384.
Определите, что будет выведено на экран после выполнения фрагмента программы на языке программирования Turbo Pascal: x := 0; y :
Const n=13;
var a:array[1..n] of integer;
i,c:integer;
begin
Randomize;
writeln(‘Массив A:’);
for i:=1 to n do
begin
a[i]:=random(31);
write(a[i]:4);
end;
writeln;
c:=a[4]; a[4]:=a[9]; a[9]:=c;
for i:=1 to n do write(a[i]:4);
writeln;
end.
Пример:
<span>Массив A:
11 25 20 0 7 28 27 26 23 25 12 24 20
11 25 20 23 7 28 27 26 0 25 12 24 20</span>
Задания к § 2.4. Запись вспомогательных алгоритмов на языке Паскаль —
90. Выделите в программе и подпишите справа от нее заголовок головной программы; раздел описания переменных; раздел описания подпрограммы с указанием имени подпрограммы» параметров-значений, параметров переменных и операторов подпрограммы; раздел операторов головной программы.
Что будет выведено на экран в результате выполнения этой программы.
91. Запишите соотношение, используемое в приведенной ниже подпрограмме. Определите, сколько звездочек будет выведено в результате вызова f(7) подпрограммы.
Определите, сколько звездочек будет выведено в результате вызова f(7) подпрограммы. Вычисления фиксируйте в таблице.
92. Выделите в программе и подпишите справа от нее заголовок головной программы; раздел описания переменных; раздел описания подпрограммы с указанием имени функции, входных данных, типа результата и операторов функции; раздел операторов головной программы.
Что будет выведено на экран в результате выполнения этой программы?