Составить программу на Паскале с ветвлением

Знания

Информатика

1 ответ:

Hardboy4 года назад

0 0

Var x, y : integer;
begin
    read(x, y);
    if x > 3 and y > 2
        then write('YES')
        else write('NO');
end.

Читайте также

Помогите откорректировать программу - Паскаль. Структура программы как у меня.Условие: Дан одномерный массив, состоящий из вещес

Man22 [35]

строку
i:=1;
нужно поменять на
i:=n; (раз уж вы начинаете считать с конца)
а строки
while (i>=0) and (a[i]<=0) do i:=i-1;
if i<0 then writeln(0)
на
while (i>0) and (a[i]<=0) do i:=i-1;
if i=0 then writeln(0) (поскольку нет 0-ого элемента массива, и может выдаваться ошибка)

0 0

4 года назад

Прочитать ещё 2 ответа

Автоматизировать начисление стипендии студентам (группа – 10 человек) по итогам летней сессии. Количество экзаменов – 5, баллы –

Lele4ka [24]

Лист защищен без пароля, чтобы случайно не повредить формулы.

0 0

4 года назад

Сравните числа 111101(2),1D(16),27(8)

AnastasiyaSophia

111101(2) = 61(10)

1D(16) = 29(10)

27(8) = 23(10)

наибольшее 111101(2)

0 0

4 года назад

Менеджер находится в командировке. Ему необходимо привести очень важную для фирмы информацию. В его распоряжении находится тольк

Натали2011

1) 15,6 Мб переводим в гигабайты:
15,6 ÷ 1024 = ~0,015 Гб
2) Находим заполненное:
1,24 + 1,27 + 0,015 = 2,525 Гб
3) Пропорция, чтобы найти количество заполненного в процентах:
16 / 100 = 2,525 / х
Оисюда получаем х = 15,8 %
4) Свободное:
100 - 15,8 = 84,2 %

0 0

4 года назад

Какие устройства расположены внутри системного блока

eururash [7]

Материнская плата, платы видео-звука-интернета (сетевые платы), блок питания, опертивная память, DWD-привод, шельфы, кулера, жесткий диск.

0 0

4 года назад