Информатика: Перевидите програму на язык поскаль

3) if (a b) then begin if (c b) then k := 1; end else k := 3;4) if (a b) then if (c b) then k := 1;5)if (a b) then if (c b) then // ... что-то делаем ... else k := 2;...

Перевидите програму на язык поскаль

Ответы

Тася221 28.01.2021 11:00

if (a > b) then

begin

if (c > b) then

k := 1;

end

else

k := 3;

if (a < b) then

if (c > b) then

k := 1;

if (a > b) then

if (c > b) then

// ... что-то делаем ...

else

k := 2;

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

geniip 29.03.2020 19:10

Напечатать таблицу значений функций y=x3 при изменении x от 2 до 12 с шагом напишите программу в Pascal...

Dashasha555 29.03.2020 19:11

Практическая работа Вычисления в электронных таблицах и построение диаграмм Задание Для следующих задач построить таблицы с произвольными данными, например для первой...

KÖT8953 28.11.2020 23:06

В одной из кодировок каждый символ кодируется 7 битами. Вова написал текст (в нем нет лишних пробелов) Уж, рак, крот, кошка, собака, кашалот, динозавр, джунгарик -...

Q3max2011 28.11.2020 23:07

Сделайте ложные высказывания истинными. · Вид алгоритма зависит от его представления. · Алгоритм, представленный в виде блок-схемы, является алгоритмом с ветвлением....

sashok509 09.04.2020 11:16

1. Объясните ход исполнения командыIf логическое выражение 1 Then begin команды 1 endElse If логическое выражение 2 Then begin команды 2 endElse begin команды 3 end;...

рената1239305 09.04.2020 11:16

S= 12ad4fgh6 Вкажіть відповідність між оператором та результатом....

peterburg1 09.04.2020 11:16

Сколько байт памяти занимает цветное изображение шириной 100 точек и высотой 20 точек в цветовой модели RGB?...

alexdias 09.04.2020 11:16

Определите, чему будет равно значение переменной ans после выполнения следующей программы: ans := 0; for i := 100 downto 1 do if (i mod 49 = 0) or ((i mod 2 = 0) and...

PrinceGangsTa 09.04.2020 11:14

Решите пример в виде схемы.пример- (963:3-34):7-24Схема-(наруйте в тетради)29 б...

helpmeplsaaa 09.04.2020 11:14

по информатике 1.Наберите и отладьте программу: Program massiv; var C: array(-10..10) of real; begin for i:=1 to 20 do Read(C[i]); for i:=1 to 20 do C[i]:=C[i]/10;...

Перевидите програму на язык поскаль

Популярные вопросы