Охарактеризуйте любые три образовательных ресурсов

Задание 1

а) не (24 < 50) и (чётность) = не (истина) и (истина) = ложь и истина = ложь

б) не (45 < 50) и (чётность) = не (истина) и (ложь) = ложь и ложь = ложь

в) не (74 < 50) и (чётность) = не (ложь) и (истина) истина и истина = истина

г) не (99<50) и (чётность) = не (ложь) и (ложь) = истина и ложь = ложь

Задание 2

не (первая гласная) или не (последняя согласная)

а) не (истина) или не (ложь) = ложь или истина = истина

б) не (истина) или не (истина) = ложь или ложь = ложь

в) не (ложь) или не (истина) = истина или ложь = истина

г) не (ложь) или не (ложь) = истина или истина = истина

Задание 3

(первая гласная) и не (третья согласная)

а) (истина) и не (ложь) = истина и истина = истина

б) (ложь) и не (истина) = ложь и ложь = ложь

в) (ложь) и не (ложь) = ложь и истина = ложь

г) (истина) и не (истина) = истина и ложь = ложь

Задание 4

не (x < 7) или (x < 6)

а) не (4 < 7) или (4 < 6) = не (истина) или (истина) = ложь или истина = истина

б) не (5 < 7) или (5 < 6) = не (истина) или (истина) = ложь или истина = истина

в) не (6 < 7) или (6 < 6) = не (истина) или (ложь) = ложь или ложь = ложь

г) не (7 < 7) или (7 < 6) = не (ложь) или (ложь) = истина или ложь = истина

Задание 5

(x < 5) и не (x < 4)

а) (5 < 5) и не 5 < 4) = ложь и не (ложь) = ложь и истина = ложь

б) (2 < 5) и не (2 < 4) = истина и не (истина) = истина и ложь = ложь

в) (3 < 5) и не (3 < 4) = истина и не (истина) = истина и ложь = ложь

г) (4 < 5) и не (4 < 4) = истина и не (ложь) = истина и истина = истина

Задание 6

не (последний мягкий знак) и (чётность)

1) не (истина) и (истина) = ложь и истина = ложь

2) не (ложь) и (истина) = истина и истина = истина

3) не (истина) и (ложь) = ложь и ложь = ложь

4) не (ложь) и (ложь) = истина и ложь = ложь

0. Ты никак не задаёшь n в программе. Тебе стоит хотя бы прочитать его: read(n);
1. Что написано внутри условия цикла while? Если по твоему решению, должно быть "i <= n"
2. Делители будут "прилипать" друг к другу, выводи так: write(i, ' ');
3. Твой счётчик i не увеличивается, программа зациклится. После if'а вставь i := i + 1;

Итоговый код:
var n, i: integer;
begin
read(n);
i := 1;
while (i <= n) do
begin
if n mod i = 0 then write(i, ' ');
i := i + 1;
end;
writeln('n');
end.

Есть, кстати, альтернативный поиска делителей. Выводить их он будет, правда, не в порядке возрастания.
var n, i: integer;
begin
read(n);
i := 1;
while (i * i < n) do
begin
if n mod i = 0 then write(i, ' ', n div i, ' ');
i := i + 1;
end;
if i * i = n then write(i, ' ');
writeln('n');
end.