Скорее всего разные настройки просто выдели текст и измени шрифт.
Var
a, b, c, d: byte;
begin
for a := 1 to 5 do
begin
for b := 1 to 5 do
begin
c := (c = 10 ? 1 : c + 1);
write((a mod 10 = 1 ? c : 16 - c):3);
end;
writeln();
end;
end.
Я ничего незнаю мне самой нужен ответ но никио ничего не пишет
<span>1. Аудиторией называется специально оборудованное помещение (в каком-либо университете, институте ит. д.) для чтения лекций и проведения учебных занятий.<span>Лекционная аудитория.</span></span><span>2. Аудиторией называются все те люди, которые пришли послушать лекцию, речь, выступление и т. п.<span><span>Ответить на вопросы аудитории.</span> | <span>Установить контакт с аудиторией.</span></span></span><span>3. Читательской, зрительской, слушательской аудиторией называют тех людей, которые читают книги,смотрят телевидение, слушают радио.</span>
Program p1;
var n, i: integer;
begin
WriteLn('Введите n');
ReadLn(n);
for i := 1 to n do
WriteLn(i);
end.
===============
program p2;
var n, i: integer;
begin
WriteLn('Введите n');
ReadLn(n);
for i := n downto 1 do
WriteLn(i);
end.
===============
program p3;
var n, i: integer;
begin
WriteLn('Введите n');
ReadLn(n);
for i := 1 to n do
if i mod 3 = 0 then WriteLn(i);
end.
===============
program p4;
var n, i: integer;
begin
i := 1;
WriteLn('Введите n');
ReadLn(n);
while i <= n do
begin;
if i mod 3 = 0 then WriteLn(i);
i := i + 1;
end;
end.
===============
program p5;
var n, i: integer;
begin
WriteLn('Введите n');
ReadLn(n);
for i := 1 to n do
if i mod 2 = 0 then WriteLn(i);
end.
===============
program p6;
var n, i: integer;
begin
i := 1;
WriteLn('Введите n');
ReadLn(n);
while i <= n do
begin;
if i mod 2 = 0 then WriteLn(i);
i := i + 1;
end;
end.