Uses crt;var c,i,j,n:integer;a:array [1..1000] of integer;begin clrscr;read(n);for i:=1 to n doread(a[i]);for i:=1 to n dofor j:=1 to n-1 doif (a[j] mod 10) > (a[j+1] mod 10) then beginc:=a[j];a[j]:=a[j+1];a[j+1]:=cend;for i:=1 to n dowrite(a[i],' ')<span>end.</span>
Program z1;
var i:integer;
begin
for i:=99999 downto 723 do
if i mod 723=0 then
write (i,' ');
end.
Написано на Pascal
var a:real;i,k:integer;
begin
writeln('Введите 3 числа');
for i:=1 to 3 do
begin
read(a);
if (a>=2.5) and (a<=5.2) then begin
writeln('Число ',a,' входит в интервал');
k:=k+1;
end;
end;
if k=0 then writeln('Таких чисел нет');
end.<span>
</span>
Ответ:
Объяснение:
1)A6.
2) Текстовая.
3)A1;B1;A2;B3;B4;A5;B5;A6.
4)A3;A4;B7.
5)A7.