Природные ресурсы по количеству запасов делятся на исчерпаемые и неисчерпаемые. Исчерпаемые в свою очередь делятся на возобновимые и невозобновимые. По назначению природные ресурсы делятся на многоцелевые, промышленные и сельскохозяйственные.
Var
i,n:integer;
a:array[1..4] of integer;
begin
Write('n='); Read(n);
for i:=1 to 4 do begin
a[5-i]:=n mod 10;
n:=n div 10
end;
Writeln(a[4]*1000+a[3]*100+a[2]*10+a[1]);
Writeln(a[3]*1000+a[4]*100+a[1]*10+a[2]);
Writeln(a[2]*1000+a[1]*100+a[4]*10+a[3]);
Writeln(a[1]*1000+a[3]*100+a[2]*10+a[4])
end.
Пример
n=7048
8407
4870
784
7408
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace ConsoleApplication1
{
class Program
{
static void Main(string[] args)
{
Console.WriteLine("Введите строку: ");
string str = Console.ReadLine();// строка
Console.WriteLine("Введите подстроку: ");
string podstr = Console.ReadLine();//подстрока
var temp = str.Split().Where(i => i.Contains(podstr));
Console.WriteLine("Слова содержащие подстроку:");
foreach (var word in temp)
Console.Write(word + " ");
Console.ReadLine();
}
}
}
Такие задания очень легко решаются, если заменить логические знаки на арифметические. Сейчас я напишу логические знаки и их аналогичные арифметические.
∧ или & - * (умножение)
∨ - + (сложение)
¬ - отрицание (1 превращается в 0, а 0 в 1)
Запишу в качестве примера последнюю таблицу первую строчку
при A=0 B=0 C=0
A&B меняем на A*B
получается 0*0 ответ 0
A&B∨C меняем на A*B+C
получается 0*0+0 ответ 0
¬(A&B∨C) меняем на ¬(A*B+C)
получается ¬(0*0+0) сначала решаем в скобках, будет ¬(0) или ¬0 ответ: 1
Думаю всё понятно, ничего сложного. В приложении прикрепляю 2 последние таблицы.