// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (N, M, C) := ReadInteger3;
var cc := C.ToString;
Range(N, M).Where(n -> n.ToString.Contains(cc)).Count.Println
end.
3 ноября 1962 года <span>Гейб Ньюэлл
А курица учённые ещё не определились когда родилась курица .</span><span />
#include <iostream>using namespace std;int main(){ int n,m; cout<<"Enter two numbers\n"; cin>>n>>m; if(n<m)cout<<n+m<<endl; else cout<<n-m<<endl; return 0;}
Var i, k: integer;
a:array[1..100] of integer;
begin
k:=0;
for i := 1 to 100 do
begin
a[i]:=random(15)-7;
writeln(a[i]);
end;
for i := 1 to 100 do
if a[i]=5 then inc(k);
writeln(k);
readln
<span>end.</span>
1) программа дешифратор.
2) прога для 3D моделей. (3D Studio Max)