Даны целые числа a и b написать программу которая выводит сначала меньшее число затем большее( на языке паскаль)

Знания

Информатика

1 ответ:

ministrff4 года назад

0 0

Program Z_n;
var a,b:integer;
Begin
Readln(a);
Readln(b);
If a>b then begin write(b,' '); writeln(a); end
else begin write(a,' '); writeln(b); end;
end.

P.s Числа вводите через enter( Ввели число, нажали enter, потом ввели второе число)

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

Запишите сегодняшнюю дату в неопозиционной системы счисления

NadinPND

Непозиционной системой счисления<span> является ,к примеру,</span>римская (есть и другие) 2014 год это будет - MMXIV, октябрь это у нас 10 месяц будет - X и число сегодня 24 будет - <span>XXIV
В итоге: год </span>MMXIV,месяц X, число XXIV ,что означает по нашему 2014.10.24

0 0

4 года назад

ХеееелпПроцесс создания приложения в интегрированной среде Lazarus

Tina54

Процесс создания приложения в Lazarus можно разделить на следующие этапы:
<span>1. Формирование окна программы – расположение необходимых элементов, задание размеров, изменение свойств; </span>
<span>2. Написание программного кода, описание свойств элементов, доступных только во время работы приложения, описание реакций на событие появления окна, нажатие на кнопку и других; </span>
<span>3. Отладка программы. </span>

0 0

4 года назад

Составить программу, которая по введенному возрасту пользователя сообщает, к какой возрастной группе он относится: До 13 лет – д

lourdes

Program age;
var m:integer;
begin
readln(m);
if (m<=13) then writeln('детство');
if (m>=14)and(m<=24) then writeln('молодость');
if (m>=25)and(m<=59) then writeln('<span>зрелость</span>');
if (m>=60) then writeln('старость')
end.

0 0

4 года назад

1) Задан массив A(N). Элементы различны. Найти наименьший элемент 2) Найти номер наибольшего элемента массива размером МхN, эле

Abdurakhim Rasulov

<em>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>

<u>№1</u>

begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Наименьший элемент равен ',a.Min)
end.

<u>Пример</u>
n= 17
-34 -4 -16 50 -12 -13 -40 -10 4 1 46 -46 2 -13 4 -4 20
Наименьший элемент равен -46

<u>№2</u>

begin
var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('Вводите элементы построчно');
var t:=ReadMatrInteger(m,n).ElementsWithIndexes.MaxBy(x->x[0]);
Writeln('Максимальный элемент A[',t[1]+1,',',t[2]+1,']=',t[0])
end.

<u>Пример</u>
Количество строк и столбцов в массиве: 3 4
Вводите элементы построчно
5 -6 0 9
12 7 12 0
-8 23 6 20
Максимальный элемент A[3,2]=23

<u>№3</u>

begin
var a:=ArrRandom(ReadInteger('n='),-20,20); a.Println;
Writeln('Сумма положительных элементов равна ',a.Where(x->x>0).Sum);
Writeln('Количество отрицательных элементов равно ',a.Where(x->x<0).Count);
Writeln('Количество нулевых элементов равно ',a.Where(x->x=0).Count);
end.

<u>Пример</u>
n= 18
-16 -15 -20 -20 17 2 -3 13 15 -11 -10 -6 0 -5 10 0 20 10
Сумма положительных элементов равна 87
Количество отрицательных элементов равно 9
Количество нулевых элементов равно 2

0 0

4 года назад

Составить программу. Вывести на экран первых целых чисел кратных 7.

Themio [242]

<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>

begin

SeqGen(ReadInteger('N='), 7, t -> t + 7).Println

end.

0 0

4 года назад