ЗАДАНИЕ - Текст сформулируйте произвольно
В тексте укажите
Что Ваш центр не может выполнить своевременно заказ проекта маркетингового исследования фирмы Астра-П в связи с отсутствием полной документации об экономическом состоянии фирмы. Укажите, что предоставить материалы требуется в ближайшее время.
var
chislo,i,happy,ten: integer;
a: array [1..6] of integer;
begin
happy := 100002; {наименьшее число,кратное 7}
ten:=1; {счётчик колонок}
while happy<999999 do
begin
{делим число happy на цифры с временной переменной chislo}
{и сохраняем эти цифры в массиве а}
chislo := happy;
for i:= 1 to 6 do
begin
a[i] := chislo mod 10;
chislo:= chislo div 10;
end;
{проверяем,счастливое ли число}
if (a[1] + a[2] + a[3] = a[4] + a[5] + a[6]) then
begin
{если счастливое,то выводим}
write(happy,' ');
ten:=ten+1;
if ten>10 then
{если уже напечатано 10 чисел, то переходим в новую строку}
begin
ten:=1;
writeln();
end;
end;
happy:=happy+7;
end;
end.
Код программы получился довольно таки большой , но можно сам файл *.pas Закинуть в интернет и оттуда скачать.
Задача №2)
uses crt;
var m:array[1..100,1..100] of integer;
i,i1,j,str,stb,temp:integer;
begin
clrscr;
введите число строк массива: '); readln(str);
введите число Столбцов массива: '); readln(stb);
clrscr;
writeln('Массиа из ',str,' строк, и из ',stb,' столбцов успешно создан!');
writeln;
for i:=1 to str do
begin
for j:=1 to stb do
begin
m[i,j]:=random(80)+1;
write(m[i,j]:3,' ');
end;
writeln;
end;
writeln;
writeln(' отсортирован по убыванию');
writeln;
for i1:=1 to str do
for i:=1 to str-1 do
for j:=i+1 to str do
if m[i1,i]<m[i1,j] then begin temp:=m[i1,i]; m[i1,i]:=m[i1,j]; m[i1,j]:=temp;end;
writeln;
for i:=1 to str do
begin
for j:=1 to stb do
begin
write(m[i,j]:3,' ');
end;
writeln;
end;
readkey;
end.
Запускаешь водишь строк и столбцов после нажимаешь Enter программы сделает своё дело