написать 3 программы на паскале(при операторов while, for, repeat) которые вводят с клавиатуры n(n<=100) целых чисел и присваивают логической переменной t значение true если в этой последовательности есть хотя бы одно число делящееся без остатка на 7, в противном случае переременной t присваивается значение false

Объяснение:

Позиционная систе́ма счисле́ния (позиционная нумерация) — система счисления, в которой значение каждого числового знака (цифры) в записи числа зависит от его позиции (разряда).

Системы счисления в культуре

Индо-арабская

Арабская

Тамильская

Бирманская

Кхмерская

Лаосская

Монгольская

Тайская

Восточноазиатские

Китайская

Японская

Сучжоу

Корейская

Вьетнамская

Счётные палочки

Алфавитные

Абджадия

Армянская

Ариабхата

Кириллическая

Греческая

Грузинская

Эфиопская

Еврейская

Акшара-санкхья

Другие

Вавилонская

Египетская

Этрусская

Римская

Дунайская

Аттическая

Кипу

Майяская

Эгейская

Символы КППУ

Позиционные

2, 3, 4, 5, 6, 8, 10, 12, 16, 20, 60

Нега-позиционная

Симметричная

Смешанные системы

Фибоначчиева

Непозиционные

Единичная (унарная)

Язык программирования не указан, потому - самый простой вариант - программа на паскале. Даже на паскале задачу можно решать различными с массивом, без массива, со строками, без строк. Опять-таки, самый простой вариант - со строками.
var s,p:string; n,i:integer;
begin
writeln('Введите символы:');
readln(s);
n:=pos('.',s)-1;
writeln('n = ',n);
p:='';
for i:=1 to n do p:=s[i]+p;
writeln('а)');
writeln(p);
p:='';
if n mod 2 = 0 then i:=2 else i:=1;
while i<=n do
 begin
 p:=p+s[i];
 i:=i+2;
 end;
writeln('б)');
writeln(p);
end.

Пример:
Введите символы:Даны символы s1, s2, ... Известно, что символ s1 отличен от точки
n = 21
а)
 ,2s ,1s ыловмис ынаД
б)
Дн ивл 1 2