<span>uses crt;
const s='Софокл';
var n,m,i,j,cf,ct:integer;
begin
randomize;
n:=25;
m:=(80)div n;
for i:=1 to n do
begin
gotoXY(m*(i-1),i);
cf:=random(9)+8;//от голубого до желтого
ct:=random(9);//от синего до серого
textbackground(cf);
textcolor(ct);
write(s);
end;
end. попробуй это </span>
Var
A,N:integer;
P:real;
Begin
Write('A = ');
ReadLn(A);
Write('N = ');
ReadLn(N);
P:=1;
For N:= 0 to N-1 do
P:=P*(A+N);
WriteLn('P = ',P)
End.
Сократ скорее по идее должен быть
Решение, задачи "Даны действительные числа 1,2,…70. Вывести последовательность 2,3,…,70,1". см. Файл.
P.S. Решение на указателях.
gcc: 4.8.1
Исходные данные:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 <span>44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70
После сдвига:
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 1</span>
Первое нужно выполнить СЛОЖЕНИЕ, второе ВЫЧИТАНИЕ, третье УМНОЖЕНИЕ, четвёртое ДЕЛЕНИЕ)