Program f; uses crt; var a:array [1..5] of integer; b,i,h:integer; begin clrscr; for i:=1 to 5 do begin write('vvod ',i,' el mas'); readln(a[i]); end; for h:=1 to 25 do for i:=1 to 4 do if (A[i]>A[i+1]) then begin b:=A[i+1]; A[i+1]:=A[i]; A[i]:=b; end; for i:=1 to 5 dowrite('vivod mas',a[i],' '); readkey; end.
Идем от обратного, Нужно получить из 100019 операциями -1 и /7 число 1. 1,2,3) Целочисленно 100019 на 7 не делится. ближайшее число, делимое на 7 это 100016 ( целочисленно делим 100019/7 = 14288, 14288*7=100016). Для этого нужно сделать трижды операцию -1 100019-1-1-1=100016 4) 100016/7 = 14288. 5) 14288 опять не делится. Ближайшее число 14287. 14288-1=14287 6) 14287/7=2041 7,8,9,10) 2041-1-1-1-1=2037 11) 2037/7=291 12,13,14,15) 291-1-1-1-1=287 16) 287/7=41 17,18,19,20,21,22) 41-1-1-1-1-1-1=35 23) 35/7=5 24,25,26,27) 5-1-1-1-1=1
1) статья из газеты2) из-за ошибки журналиста известного журналиста считают умершим3) например, "температура кипящей воды - 100С"4) соответственно, "кипящая вода очень горячая"5) "скорый поезд из Новосибирска прибыл на Курский вокзал в 02.35 20 февраля 2010 года"6) "поезд приехал в Москву 20 числа"7) учебник 7 класса по математике для семиклассника8) учебник 7 класса по математике для первоклассника9) текст на русском языке для русскоговорящего человека10) иноязычный сленг для человека, не говорящего на этом языке
uses crt;
var a:array [1..5] of integer;
b,i,h:integer;
begin
clrscr;
for i:=1 to 5 do begin write('vvod ',i,' el mas');
readln(a[i]);
end;
for h:=1 to 25 do
for i:=1 to 4 do
if (A[i]>A[i+1]) then
begin
b:=A[i+1];
A[i+1]:=A[i];
A[i]:=b;
end;
for i:=1 to 5 dowrite('vivod mas',a[i],' ');
readkey;
end.