Обозначим культуры 1, 2, 3, 4.
Отдельный будет обозначать четырехзначное число, где на первом месте - номер культуры на первом поле, на втором - номер культуры на втором поле, и т. д.
Исходный обозначим 1234.
Нужно найти такие числа, где на первом месте стоит не 1, на втором не 2, на третьем не 3, на четвертом не 4.
Цифра 1 на первом месте стоять не может.
Пусть на первом месте стоит 2.
- Если на втором месте стоит 1, то на третьем и четвертом местах должны стоять цифры 4 и 3, иначе цифра 4 останется на прежнем месте
- Если на втором месте стоит 3, то на третьем и четвертом местах должны стоять цифры 4 и 1, иначе цифра 4 останется на прежнем месте
- Если на втором месте стоит 4, то на третьем и четвертом местах должны стоять цифры 1 и 3, иначе цифра 3 останется на прежнем месте
Пусть на первом месте стоит 3.
- Если на втором месте стоит 1, то на третьем и четвертом местах должны стоять цифры 4 и 2, иначе цифра 4 останется на прежнем месте
- Цифра 2 на втором месте стоять не может.
- Если на втором месте стоит 4, то на третьем и четвертом местах могут стоять цифры 1 и 2 или 2 и и 3421)
Пусть на первом месте стоит 4.
- Если на втором месте стоит 1, то на третьем и четвертом местах должны стоять цифры 2 и 3, иначе цифра 3 останется на прежнем месте
- Цифра 2 на втором месте стоять не может.
- Если на втором месте стоит 3, то на третьем и четвертом местах должны стоять цифры 1 и 2 или 2 и и 4321)
Итого получаем
+ Условное наглядное решение на картинке
ответ
1)program p1;
var m,n: integer;
begin
write('вводите число: '); readln(n);
if n> =100 then
begin
m: = n mod 10;
writeln('последняя цира: ',m);
m: =n div 10 mod 10;
writeln('предпоследняя цира: ',m);
end;
end.
2)program p2;
var t1,t2,t3,d1,d2,d3,v1,v2,v3: integer;
vsr: real;
begin
write('вводите время езды(ч): '); readln(t1,t2,t3);
write('вводите скорость(км/ч): '); readln(v1,v2,v3);
d1: =v1*t1;
d2: =v2*t2;
d3: =v3*t3;
vsr: =(d1+d2+d3)/(t1+t2+t3);
writeln('средяя скорость= ',vsr: 1: 2,'км/ч');
end.
Пошаговое объяснение:
может быть и неправильным
