Даны два числа. Вывести порядковый номер меньшего из них.

Знания

Информатика

1 ответ:

yapk4 года назад

0 0

Var a,b:integer;
begin
Writeln('Введите два числа через пробел');
Read(a,b);
If aEnd.

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

Помогите, пожалуйста, составить программу замены местами в массиве b(n) второго и предпоследнего элемента, а так же сортировки э

Азамат Х [7]

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var n:=ReadInteger('n=');
var b:=ArrRandom(n,10,99); b.Println;
Swap(b[1],b[n-2]); b.Println;
b:=b.Sorted.ToArray; b.Println
end.

Тестовое решение
n= 15
74 23 76 50 79 79 38 74 21 33 45 10 35 58 48
74 58 76 50 79 79 38 74 21 33 45 10 35 23 48
10 21 23 33 35 38 45 48 50 58 74 74 76 79 79

0 0

4 года назад

#include int main(void) { int A,B,count; printf("Vvedite chislo A i chislo B:\n"); scanf("%d%d",&A,&B); for(B=2;B count=

ЮлияДМ [18]

Вместо директива "#" используй {$}. Просто от версии зависеть может. И ты begin забыл поставить

0 0

4 года назад

Что можно считать сетевым ресурсом

Siguldins

Общий ресурс, или общий сетевой ресурс, — в информатике, это устройство или часть информации, к которой может быть осуществлён удалённый доступ с другого компьютера, обычно через локальную компьютерную сеть или посредством корпоративного интернета, как если бы ресурс находился на локальной машине.

0 0

4 года назад

Помогите решить задание 4 класса, двери домика находятся с восточной стороны.на север , юг и запад выходят по 1 окну, заполнить

rosalinda [14]

дом
сверн стена. южн стена. восточн стена. заподн стена
окно. окно. двери. окно

0 0

4 года назад

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

Задача по программе Кумир Вывести на экран все нечетные числа от 1 до 5 . Заранее спасибо

юля123

var a,i:integer;

begin

a:=1;

for i:=1 to 5 do

begin

if a mod 2 <> 0 then write(a,' ');

a:=a+1;

end;

end.

0 0

1 год назад