Определите что будет выведено на экран после выполнения следующего алгоритма : 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 классов, вы открыли нужную страницу. В категории Информатика вы также найдете ответы на похожие вопросы по интересующей теме, с помощью автоматического «умного» поиска. Если после ознакомления со всеми вариантами ответа у вас остались сомнения, или полученная информация не полностью освещает тематику, создайте свой вопрос с помощью кнопки, которая находится вверху страницы, или обсудите вопрос с посетителями этой страницы.
Определите, что будет выведено на экран:
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.
кусок льда массой 0.7 кг нагревают от -16 до -9 градусов при этом затрачено количество теплоты 10,29 кДж
Решите экономическую задачу.
Для ужина Насте надо купить пачку макарон, литр апельсинового сока, 300
300 граммов сыра и 10
10 ароматизированных свечек. Настя хочет купить весь набор в одном магазине. Ознакомьтесь с условиями покупки товаров в различных магазинах и ответьте на вопросы.
Магазин «Ух»Магазин «Ах»Магазин «Ох»Макароны продаются в пачках, каждая стоит 100
100 монет. При покупке более 5
5 пачек – скидка 50 %.
Апельсиновый сок продаётся в упаковках по пол-литра и стоит 40
40 монет за упаковку.
Сыр продаётся на развес, можно выбрать любое его количество. Стоимость сыра – 500
500 монет за килограмм.
Комплект из двух ароматизированных свечек стоит 5
5 монет.Макароны продаются в пачках, каждая стоит 80
Апельсиновый сок продаётся в упаковках по полтора литра и стоит 100
100 монет за упаковку.
Сыр продаётся в упаковках по 100
100 граммов и стоит 30
30 монет за упаковку.
Ароматизированные свечки стоят по 2
2 монеты за штуку. При покупке 4
4 свечек одна достаётся бесплатно.Макароны продаются в пачках, каждая стоит 90
Апельсиновый сок продаётся в литровых упаковках и стоит 70
70 монет за упаковку.
Сыр продаётся в упаковках по 500
500 граммов и стоит 300
300 монет за упаковку.
10 ароматизированных свечек стоит 30
Если общая сумма покупки без учёта скидки превышает 400 монет, применяется скидка 10 %.
В каком магазине Насте выгоднее всего приобрести всё необходимое для ужина?
Сколько монет потратит Настя при покупке в этом магазине?
Сколько монет сэкономила бы Настя, если бы решила покупать товары по самым низким ценам в разных магазинах?
Определите что будет выведено на экран
Задания Д6 № 5309 
Определите, что будет напечатано в результате выполнения программы (записанной ниже на разных языках программирования):
DIM N, S AS INTEGER
Задания Д6 № 7307
Определите, что будет напечатано в результате выполнения программы (записанной ниже на разных языках программирования):
DIM N, S AS INTEGER
WHILE S 9 10 , следовательно, цикл выполнится 10 раз. На 10-м шаге s станет равной 1024 и условие s ≤ 1000 окажется не выполненным, цикл прервется. Следовательно, значение n будет равно 10·2 = 20.
Задания Д6 № 7339
Определите, что будет напечатано в результате выполнения программы (записанной ниже на разных языках программирования).
DIM N, S AS INTEGER
WHILE S 6 7 = 2187 , следовательно, цикл выполнится 7 раз. На 7-м шаге s станет равной 2187 и условие s ≤ 1000 окажется не выполненным, цикл прервется. Следовательно, значение n будет равно 7·3 = 21.
Задания Д6 № 3564
Определите, что будет напечатано в результате выполнения программы (записанной ниже на разных языках программирования):
DIM N, S AS INTEGER
var n, s: integer;
using namespace std;
Цикл while выполняется до тех пор, пока истинно условие s >= 0, т. е. переменная s определяет, сколько раз выполнится цикл.
Так как , цикл выполнится 26 раз (так как действие «s := s — 20» выполняется до «n := n + 1», значит, до того, как цикл прервется, действие «n := n + 1» успеет выполниться). Значение n будет равно 26.
Задания Д6 № 4723
Определите, что будет напечатано в результате выполнения программы (записанной ниже на разных языках программирования):