Материальная - машина и вселенная
Нематериальная - запись формулы
Смешанная - школа и армия
PascalABC.NET 3.4
begin
var s:=ReadlnInteger('n=').ToString; // ввели целым, стало строкой
var l1 := s.Length; // всего цифр
var l2 := s.Distinct.JoinIntoString('').Length; // разных цифр
if l1 = l2 then Writeln('Одинаковых цифр нет')
else Writeln('Одинаковые цифры есть')
end.
var
x,x1:integer;
begin
readln(x);
if (x div 10 + x mod 10 >= 10) then writeln ('Является')
else begin x1:=x; while (x1 div 10 + x1 mod 10 < 10) do x1:=x1+1; end;a
if (x div 10 + x mod 10 < 10) then writeln('Нужно увеличить на ',x1-x);
end.
var a:array[1..10] of integer;
i,s,n,k:integer;
Begin
read(n);
for i := 1 to n do begin
read(a[i]);
if a[i]>0 then begin
s:=s+a[i];
k:=k+1;
end;
end;
writeln(s, s/k);
End.
Var a:integer;
begin
writeln('Введите время (в минутах)');
readln(a);
if ((a mod 10>=0)and(a mod 10< 3))or((a mod 10>=5)and(a mod 10< 8)) then writeln('Зелёный')
else writeln('Красный');
readln
end.