Program gt;
var i,k:integer;
begin
k:=0;
for i:=1 to 1000 do
if(i mod 2=1)then begin
k:=k+1;
write(i,' ');
if(k=20)then exit;
end;
end.
2)
program gt;
var i,k:integer;
begin
k:=1;
write(k,' ');
for i:=1 to 14 do
begin
k:=k+3;
write(k,' ');
end;
end.
Это двоичный код соответствующий символу
A:1,2,3,4,5;B:-1,-2,-3,-4,-5;C:1,2,3,4,5.
program d;
var a, b, c: integer;
begin
for c:= 1 to 5 do
begin
a:= a + 1;
b:= b - 1;
writeln (a:3,' ',b:3,' ',c:3);
end;
end.
Он шел так: вверх - вверх - вниз. Чтобы вернуться назад, надо пойти вверх - вниз - вниз
C:\Школа\Уроки\Химия → C:\Школа\Уроки → C:\Школа\Уроки\... → C:\Школа\Уроки\...\Логика
Название папки, обозначенное ..., восстановить из условия не получится. Пример возможного полного пути каталога, с которым пользователь начинал работу:
C:\Школа\Уроки\Информатика\Логика