Привет Всем! Задачки на паскаль

[Наира]

Задача 1. Построить наибольшей длины линейный массив из различных двузначных чисел, в записи которых встречаются цифры:1,3,5,7,9. Расположить элементы массива по главной диагонали экрана монитора в порядке возрастания.
Входной файл пуст. В выходном файле - одна строка из элементов искомого массива, разделитель чисел-пробел.

Задача2. Вывести на экран монитора массив чисел и сумму элементов, окаймляющих данный массив чисел
1 2 3 4 ... n
n+1 n+2 n+3 n+4 ... 2n
2n+1 2n+2 2n+3 2n+4 ... 3n
........ ......... ........ ........ ...
(n-1)n+1|(n-1)n+2|(n-1)n+3|(n-1)n+4 ...n*n
во входном файле - число n. В выходом файле записана строка из n*n+1 числа, элементы массива и искомая сумма. Разделитель числа-пробел

[Leshii]

Ну так в чём проблема? где свои наработки?

[Наира]

Не могу решить

[Vanta11a]

Сообщение от Наира

Не могу решить

Правильно читать

Сообщение от Наира

Мне лень думать, давайте вы быстренько на халяву решите, и тогда я не буду орать, что вы тупые ленивые заевшиеся гики

Наработки где?

Задача 1. Построить наибольшей длины линейный массив из различных двузначных чисел, в записи которых встречаются цифры:1,3,5,7,9. Расположить элементы массива по главной диагонали экрана монитора в порядке возрастания.
Входной файл пуст. В выходном файле - одна строка из элементов искомого массива, разделитель чисел-пробел.

Итак, поехали. Первое, что нам нужно - получить все двузначные числа, в которых есть 1,3,5,7,9.
Объявляем множество

 type nechet = set of integer;
var nech:necet;
nech := [1,3,5,7,9]

Далее перебираем все числа от 10 до 99

for i:=10 to 99 do

и проверяем на наличие заданных цифр

if ((i mod 10) or (i div 10)) in nech

Есть совпадение - выводим на экран

setpos(x,y);
write(i);
x:=x+1;
y:=y+1;

и пишем в файл

write(file,i,' ')

[Serge_Bliznykov]

Vanta11a в вашем примере есть ряд неточностей... и косячок - нужно через OR проверять условия попадания, а не делать OR числам, а потом проверять, входит ли полученное число в нужное множество:

uses crt;
var
 i : integer;
 nech :set of byte;

begin
 nech := [1,3,5,7,9];
 for i:=10 to 99 do
   if ((i mod 10) in nech)
       or ((i div 10) in nech) then

но, если посмотреть, что нужны все НЕЧЁТНЫЕ цифры в записи числа, то можно и проще поступить:

var
 i : integer;
begin
 for i:=10 to 99 do
   if odd(i mod 10) or odd(i div 10) then .....

но вопрос в другом - а что такое "главная диагональ экрана монитора"?! ведь понятие главная диагональ определена только для квадратной матрицы!
Ну, допустим, в данном контексте так будут называться элементы, расположенные по диагонали, которая начинается в левом верхнем углу и заканчивается в правом нижнем. Однако тут сразу же возникает вопрос - а сколько элементов можно разместить? Если речь идёт о текстовом окне вывода, то у нас 25 строк. Нужных двухзначных чисел получается ровно 70 штук (я подсчитал). Получается, что числа нужно выводить по три штуки в строке?...

[Vanta11a]

Serge_Bliznykov, а мне за исправный код не платили, да и писал на коленке со смартфона.
Ну и неточности не критичны, если разбираться будет - может хоть чему-то научится.

но вопрос в другом - а что такое "главная диагональ экрана монитора"?! ведь понятие главная диагональ определена только для квадратной матрицы!

Я посчитал, что это направление от лево-верх до право-низ. Проверку на выход за границы надо, конечно, но не хочется писать.

Ну, допустим, в данном контексте так будут называться элементы, расположенные по диагонали, которая начинается в левом верхнем углу и заканчивается в правом нижнем. Однако тут сразу же возникает вопрос - а сколько элементов можно разместить? Если речь идёт о текстовом окне вывода, то у нас 25 строк. Нужных двухзначных чисел получается ровно 70 штук (я подсчитал). Получается, что числа нужно выводить по три штуки в строке?...

Может именно такой косяк "запланирован" преподом чтобы отправить на доработку или проверить знания написанного?