Пример 1. В классе 30 человек. Из них 0 не любят ни информатику, ни математику. 10 учеников любят и информатику, и математику. 20 учеников любят математику. Откуда следует, что 20 учеников любят информатику. Пример 2. В классе 20 человек. Из них 0 не любят ни информатику, ни математику. 0 учеников любят и информатику, и математику. 10 учеников любят математику. Откуда следует, что 10 учеников любят информатику.
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;
max:=0;
while n>0 do
begin
m:=n mod 10;
if m<min then min:=m;
if m>max then max:=m;
n:=n div 10; end;
writeln('Максимальное число: ',max);
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.
using System;
using System.Collections.Generic;
using System.Linq;
namespace restless
{
class Program
{
static void Main()
{
//элементы вводятся в 1 строку
List<int> lst = new List<int>(Console.ReadLine().Split(' ').Select(x => int.Parse(x)).ToArray());
for (int i = 0; i < lst.Count; i++)
if (lst[i] % 2 != 0)
lst.RemoveAt(i);
for (int i = 0; i < lst.Count; i++)
Console.Write($"{lst[i]} ");
}
}
}