1) С:\Система
2) С:\Пользователи\Никита\Книги\Гарри Поттер и Кубок огня.pdf
3) С:\Пользователи\Никита\Фото\Истра.jpeg
4) С:\Пользователи\Никита\Документы\История ЭВМ.doc
5) С:\Библиотека
<span>6) С:\Рабочий стол\Снигери.png</span>
// методом перебора
// Ответ: 15276
const m=57;
n=67;
var i,x:word;
q:boolean;
begin
i:=99;
q:=true;
while (i<1000) and q do begin
i:=i+1;
x:=15000+i;
if (x mod m=0) and (x mod n=0) then
q:=false;
end;
writeln(x);
end.
Это точный аналог фрагмента паскалевского кода. Работать не будет, поскольку недопустимо использовать в качестве параметра вложенного цикла For ту же переменную i, что и во внешнем цикле For.
For i = 0 To N
If c(i) = 0 Then
c(i) = 1
For i = i + 1 To N
If c(i) <> 0 Then c(i) = 0
If c(i) = 0 Then Return
Next
End If
Next
<span>Нельзя преобразовать тип real к byte
</span>S(y+x, y, z);