//PascalABC.NET 3.2 сборка 1318
Var
ar:array[1..4] of real;
i,j:integer;
c:real;
begin
for i:=1 to 4 do
readln(ar[i]);
for i:=1 to 3 do //так как только 8 класс, пузырёк
for j:=i+1 to 4 do
if ar[i]>ar[j] then
begin
c:=ar[i];
ar[i]:=ar[j];
ar[j]:=c;
end;
for i:=1 to 4 do
write(ar[i]:3);
end.
Пример ввода:
2
1
4
3
Пример вывода:
1 2 3 4
<u>PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(20,-20,60); a.Println;
var x:=ReadInteger('Какое число ищем?');
if a.Contains(x) then Writeln('Такое число есть')
else Writeln('Такого числа нет')
end.
<u>Примеры</u>
42 23 59 0 20 23 41 26 47 8 23 42 20 35 31 53 -4 53 8 14
Какое число ищем? 25
Такого числа нет
15 1 44 40 55 3 31 -12 29 33 4 -13 -12 43 -14 51 44 -2 41 18
Какое число ищем? -12
Такое число есть
Vинф.=вес одной точки*кол-во точек; N(мощность алфавита)=колво цветов в степени i; где i это вес одной точки. N1=1024; i1=10; N2=32; i2=5;
V1/V2=10\5=2/1. Ответ: в 2 раза
//Ответ: 133.
//PascalABC.NET
var
i: integer;
begin
i := 0;
while(true) do
begin
if((i mod 7 = 0) and (i mod 3 <> 0) and (i mod 10 = 3)) then break;
i := i + 1;
end;
write(i);
<span>end.</span>
