Если заюзать относительные пути, то должно быть - <span>%USERPROFILE%\Desktop
</span>
Другой способ:
var a,i:longint;
begin
readln(a);
for i:=1 to 3 do
begin
write(a mod 10);
a:=a div 10;
end;
<span>end.</span>
Pascal:
program Main;
uses crt;
var a,b: integer;
begin
readln(a,b);
If(a>b) then writeln(b);
else writeln(a);
end.
C++:
#include <iostream>
int main() {
int a,b;
std::cin >> a >> b;
if(a >b) std::cout << b;
else std::cout << a;
system("pause");
return 0;
}
Const
R=14;
var
i,k:integer;
W:array[1..R] of longint;
begin
Write('Введите число членов последовательности (1-',R,'): ');
Readln(k);
if (k<1) or (k>R) then Writeln('Вы ввели неверное значение')
else begin
Write('Члены последовательности: 1');
w[1]:=1;
for i:=2 to k do
begin
w[i]:=5*w[i-1];
Write(', ',w[i])
end;
Writeln
end
end.
<em><u>Тестовое решение:</u></em>
Введите число членов последовательности (1-14): 14
Члены последовательности: 1, 5, 25, 125, 625, 3125, 15625, 78125, 390625, 1953125, 9765625, 48828125, 244140625, 1220703125
X:=random(11);
<span>x:=random(13);
</span><span>x:=-10 + random(26);
</span>x:= 10 + <span>random(6);
</span>Целые случайные числа из промежутка [0; n] генерирует функция random(n +1).
Целые случайные числа из промежутка [a; b] вычисляются с помощью выражения x:= a + random(b - a + 1);