Написать программу в паскаль : в массиве из 10 вводимых с клавиатуры чисел подсчитать количество чисел кратных первому элементу, но не кратных последнему элементу​

ответ:

объяснение:

описываем переменные:

var

chislo3 : integer;

chislostr, n1, n2, n3 : string;

begin

repeat

whiteln('ввод числа');

read(chislo3);

введенное целое число преобразуем в строку

chislostr: =str(chislo3);

проверяем, что длина строки 3, т.е. введенное число трехзначное и если да, то выходим из цикла

until length(chislostr)=3;

вырезаем из строки символы последовательно

n1: = copy(chislostr,1,1); n2: =copy(chislostr,2,1); n3: =copy(chislostr,3,1);

выводим выделенные символы построчно

writeln(n1);

writeln(n2);

writeln(n3);

end.

* синтаксис не тестил

uses

crt;

var

a: integer

begin

writeln('введите класс');

readln(a);

case a of

1: writeln(', первоклассник');

2: writeln(', второклассник');

3: writeln(', третиклассник');

4: writeln(', четвероклассник');

5: writeln(', пятиклассник');

6: writeln(', шестиклассник');

7: writeln(', семиклассник');

8: writeln(', восьмиклассник');

9: writeln(', девятиклассник');

10: writeln(', десятиклассник');

11: writeln(', одиннадцатиклассник');

else writeln( 'введите другое значение');

end;

end.