BEGIN
Ввести число N, проверить, что оно 4-значное.
read(N);
if (N >= 1000) and (N <= 9999) then
begin
Найти 2 цифру
A2 = Int(N / 100) Mod 10;
Найти 4 цифру
A4 = N Mod 10;
Сравнить их
if A2 > A4 then write "Вторая цифра больше, чем четвертая";
if A2 < A4 then write "Вторая цифра меньше, чем четвертая";
if A2 = A4 then write "Вторая цифра равна четвертой";
else
write "Число должно быть 4-значным!";
end;
Конец
END.
Сначала был каталог
D:\Школа\Информатика\<span>Практика_по_КИТ.doc.
</span>Потом создали подкаталог
D:\Школа\Информатика\8_класс\
И туда перенесли Практика_по_КИТ.doc.
Получилось:
D:\Школа\Информатика\8_класс\Практика_по_КИТ.doc.
Поэтому самый первый котолог это
D:\Школа\Информатика\
Ответ Б
Что-то такое получилось, пиши в комменты если что не так:
var
a,b,k:longint;
begin
b:=1;
k:=0;
while b<10000 do
begin
read(a);
b:=b*a;
k:=k+1;
end;
writeln('Kol:',k);
writeln('Number:',b);
readln
end.