arbat
arbat
16.10.2021
?>

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

Информатика
Ответить

Ответы

vettime625
vettime625
16.10.2021

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;

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Перевидите програму на язык поскаль
Ваше имя (никнейм)*
Email*
Комментарий*

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

КОРМИЛИЦЫНА
ОЧЕНЬ Чему будет равно e после выполнения процедуры val ('abc', k, e)?
Автор: КОРМИЛИЦЫНА
Иванникова736
Напечатать таблицу стоимости 100, 200, 2000г конфет ( стоимость 1 кг конфет вводится с клавиатуры) . среда кумир, цикл для.
Автор: Иванникова736
korotaeva778898
Почему не работает программа const nn=10000; var a: array[1..nn] of integer; i, n, min, b: integer; begin readln(n); b: =0; for i: =1 to n do read(a[i]); a[1]: = min; for i: =1 to n do if a[...
Автор: korotaeva778898
Сергей_Комарова899
Найти сумму и произведение целых чисел в диапазоне от 1 до 150 кратных 5
Автор: Сергей_Комарова899
Pilotmi247074
Составить кроссворд по информатике 3 класс из 6 слов, чтобы в выделенных клетках получилось слово состав
Автор: Pilotmi247074
egorov
1.Самые популярные языки программирования? а.JAVA, EXCEL, WORDb.C++, JAVA, PYTHONc.PYTHON, JAVA, WORD​
Автор: egorov
Гарик383
Каков информативный объём файла формата jpg, хранящего графическое изображение размером 1024х768 пикселей, если глубина цвета составляет 16 бит, а при кодировании графического изображения в этот фо...
Автор: Гарик383
Некрасова-И
Где тут ошибка? program d; var a, b, c: integer; integer : nod ('m, n'); begin while m&lt; &gt; n do if m&gt; n then m: =m-n else n: =n-m; nod: =m; end; begin write('a='); read(a); write('b='); read(b...
Автор: Некрасова-И
АнатольевичМиронова885
Заполните случайными числами в диапазоне от 1 до 10 два массива: А[1:10] и B[1:10]. Найдите и выведите на экран только те элементы этих массивов, значения которых совпадают. Например, если А[2] = В[...
Автор: АнатольевичМиронова885
ovdei71
Монтаж видео Определи видеоэффекты, создающие зеркальное отображение оригинального кадра.Верных ответов: 2«Поворот на 270 °, «Поворот на 360 °»«Поворот на 90 °»«Поворот на 180 »В Проверить307221. 401...
Автор: ovdei71
fedorenkoroman
X= 127, 65 айнымалысы берилген.Айнымалы тип аныктаныз​
Автор: fedorenkoroman
baxirchik
Дан массив. рассортировать элементы массива по убыванию. program sortirovka; var n, k, z, x : integer; a : array[1..50] of integer; begin write('введи размер массива: '); readln(n); for k: =1 to n ...
Автор: baxirchik
Овезова Игорь
Элементам массива присвоены следующие значения: M[2]: = 17; M[3]: = 9; M[4]: = 18; M[5]: = 2; M[6]: = 6. Затем выполняют следующие команды: С: = 0; for i : = 2 to 6 do if (i mod 2 = 0) then C: = C+ M[...
Автор: Овезова Игорь
shelep19789
Какое главное достоинство применения нейронных сетей? а) Возможность решения задач в условиях помех б) Можно обрабатывать сигналы нейронной сетью в) Можно распараллелить процесс функционирования сети ...
Автор: shelep19789
Низамов
Что выведет данная программа по результату своего выполнения?&nbsp;см вложение
Автор: Низамов
▲